You can first get the list of the directory and assign it to a macro variable. Then, you can use loops to read it.

The following code put the list of file into dataset - myfile.

%macro cr_dir(_mydir_, OUT =);
    %local rc myref;
    %let rc  =  %sysfunc( filename( myRef, . ));
    %let myRef  =  _%substr( &myRef, 2 );
    filename &myRef pipe "&_mydir_";
    data &out;
    infile &myRef truncover;
    input myfiles $char200.;
    run;
    filename &myRef ;
%mend cr_dir;

%cr_dir ( dir /b/s d:\Summer\*.sas  , out = myfile );

Proc print data = myfile; run;

Hope it helps

多谢兄弟了

可怎么搞的这个程序只把文件名字,而没有内容那

The code only helps you to get the file list. You need to write code to use the list to read in your file.