%let path=c:\temp ;
data _null_;
rc=filename('x',"&path");
did=dopen('x');
do i=1 to dnum(did);
fname=dread(did,i);
if scan(fname,-1,'.')='csv' then call execute(catt("proc import datafile='&path\",fname,
"' out=",scan(fname,1,'.')," dbms=csv replace;run;"));
end;
run;
... View more
