高深啊

proc sql;
create table sashelpData as
    select memname as name label='Name',
           memtype as MemberType label='Member Type',
           filesize as Size label='Size',
           modate as LastModified label='Last Modified'
    from dictionary.tables
    where libname='SASHELP' and memtype='DATA';
quit;

proc print data=sashelpdata label; run;

options fmtsearch=(work) nofmterr validvarname = upcase;
filename indata pipe "dir &dirtoty. /b /s"; * &dirtoty 为具体路径；

data file_name;
        length fname $ 300;
        infile indata truncover;
        input fname;
run;

data out;
        set file_name;
        pos = find(fname, "\",-301);
        dsname = substr(scan(fname,1,"."),pos+1);
        if scan(fname,2,".") = "sas7bdat";
        keep dsname;
run;

proc sql noprint;
        select distinct upcase(dsname) into: _dsnlist separated by " "
        from out
;
quit;