12-07-2016 10:47 AM
data filelist (keep=fname);
rc=filename("mydir", "/myhome");
did=dopen("mydir");
if did>0 then;
do i=1 to dnum (did);
fname=dread(did, i);
output;
end;
rc=dclose(did);
run;
12-07-2016 01:04 PM
Your code addapted to what you want:
data filelist (keep=fname);
rc=filename("mydir", "/myhome");
did=dopen("mydir");
if did>0 then;
do i=1 to dnum (did);
fname=dread(did, i);
rc = filename('tmp',fname,,,'mydir');
fid = fopen('tmp');
if fid = 0 then output; /* FOPEN cannot open a directory */
else fid = fclose(fid);
end;
rc=dclose(did);
run;