Just to make it easier I checked this solution out on SAS 9.2. Just change the C:\mydir to the directory you want to check:
[pre]
data _null_;
rc=filename('mydir','C:\mydir');
did=dopen('mydir');
numopts=doptnum(did);
memcount=dnum(did);
if (memcount gt 0) then do i = 1 to memcount;
filename=dread(did,i);
fid = mopen(did, filename,'i',0,'d');
optname=foptname(fid,2);
recfm=finfo(fid,optname);
optname=foptname(fid,3);
lrecl=finfo(fid,optname);
optname=foptname(fid,5);
last_updated=finfo(fid,optname);
rc=fclose(fid);
put filename = recfm= lrecl= last_updated = ;
end;
rc=dclose(did);
run;
[/pre]
... View more