Hello Tom, can you explain me your code in detail. I am not catching it. data filelist; length dname filename $256 dir level 8 lastmod size 8; format lastmod datetime20.; input dname; retain filename ' ' level 0 dir 1; cards4; /folders/myfolders ;;;; data filelist; modify filelist; rc1=filename('tmp',catx('/',dname,filename)); rc2=dopen('tmp'); dir = not not rc2; if not dir then do; fid=fopen('tmp','i',0,'b'); lastmod=input(finfo(fid,foptname(fid,5)),NLDATM100.); size=input(finfo(fid,foptname(fid,6)),32.); fid=fclose(fid); end; else do; dname=catx('/',dname,filename); filename=' '; lastmod=input(dinfo(rc2,doptname(rc2,5)),NLDATM100.); end; replace; if dir; level=level+1; do i=1 to dnum(rc2); filename=dread(rc2,i); output; end; rc3=dclose(rc2); run;
... View more