关于批量导入XPT文件

我试了上面的方法都没有成功，但是综合了大家的智慧：
*********************简单粗暴****;

filename mydir pipe 'dir "E:\datasets\" /b';
data content;
        length fname $13.;
        infile mydir lrecl=300 truncover;
        input fname $13.;
        firname = scan(fname,1,'.');
        if upcase(scan(fname,-1,'.'))='XPT';

run;
filename mydir clear;

libname MY "E:\me111\";

data _null_;
        set content  nobs=nobs;
        length code $3000;
        code1="filename XP 'E:\datasets\"||strip(fname)||"';";
        code2="PROC cimport data=MY.baseline"||strip(firname)||" infile=XP;RUN;";
        code=strip(code1)||strip(code2);
        call execute(code);
run;