根据supersasmacro的博客，可以用以下程序批量读入命名无规律的数据。

%macro checklist(dirname);
%let rs=%sysfunc(filename(filref,&dirname));
%let did=%sysfunc(dopen(&filref));
%let nobs=%sysfunc(dnum(&did));
%do i=1 %to &nobs.;
  %let inname=%qscan(%qsysfunc(dread(&did,&i)),1,.);
  data a;
    infile &dirname\&inname..txt firstobs=1 TRUNCOVER;
    input var0 $200.;
  run;
%end;
%let rc=%sysfunc(dclose(&did));
%mend checklist;
%checklist(D:\try);

如果文件夹在本地，读取没有问题。但是在读取FTP上数据时我用了下面的程序，其中%let rs=%sysfunc(filename(filref,dirname);语句报错，不知问题出在哪，求教各位，万分感谢！

filename dirname FTP "/upload/data" dir host='192.168.x.xxx' user='xxx' pass='xxx';
%macro checklist2;
%let rs=%sysfunc(filename(filref,dirname));
%let did=%sysfunc(dopen(&filref));
%let nobs=%sysfunc(dnum(&did));
%do i=1 %to &nobs.;
  %let inname=%qscan(%qsysfunc(dread(&did,&i)),1,.);
  data a;
    infile dirname(&inname..txt) firstobs=1 TRUNCOVER;
    input var0 $200.;
  run;
%end;
%let rc=%sysfunc(dclose(&did));
%mend checklist2;
%checklist2;