below code (TOM'S) run very well on a computer. While on my computer isize' and 'dte' columns returns blanks. Anyone can help me? Thank you. %macro getfilesizes(directory,extension,dataset) ; data &dataSet ; length file $256 dte 8 size 8 directory $256; format dte datetime.; keep file dte size directory ; length filrf filrfb $8 ; directory="&directory"; rc1=filename(filrf,directory); did=dopen(filrf); memcount=dnum(did); do i=1 to memcount; file = dread(did,i); if scan(file,-1,'.') = "&extension" or "&extension" = "all" then do; rc2=filename(filrfb,catx('/',directory,file)); fid=fopen(filrfb); dte=input(finfo(fid,'Last Modified'),datetime.); size=input(finfo(fid,'File Size (bytes)'),32.); output; rc3=fclose(fid); rc4=filename(filrfb); end; end; rc5=dclose(did); run; %mend getfilesizes; %getfilesizes(directory=D:\SASworkdata\workdata,extension=all,dataset=xxx) proc print width=min; run;
... View more