使用SAS从具有2年历史的外部文件夹中删除zip文件

filename myfolder '外部文件夹路径';

data filelist;
   length filename $200.;
   rc = dopen('myfolder');
   if rc = 0 then do;
      num_files = dnum(rc);
      do i = 1 to num_files;
         filename = dread(rc, i);
         output;
      end;
      rc = dclose(rc);
   end;
run;

data _null_;
   set filelist;
   if index(filename, '.zip') > 0 then do;
      filename zipfile (myfolder || filename);
      rc = filename('zipfile');
      if rc = 0 then do;
         rc = fdelete('zipfile');
         if rc = 0 then put 'Deleted ' filename;
         else put 'Failed to delete ' filename;
      end;
   end;
run;