I have the below code that deletes all files within a SAS folder. I would like to modify it, or come up with a different solution that would only delete the files in the said folder if older than 5 days. Any help would be appreciated! %macro delete_all_the_files_in_folder(folder);
filename filelist "&folder";
data _null_;
dir_id = dopen('filelist');
total_members = dnum(dir_id);
do i = 1 to total_members; /* walk through all the files in the folder */
member_name = dread(dir_id,i);
file_id = mopen(dir_id,member_name,'i',0);
if file_id > 0 then do; /* if the file is readable */
freadrc = fread(file_id);
rc = fclose(file_id);
rc = filename('delete',member_name,,,'filelist');
rc = fdelete('delete');
end;
rc = fclose(file_id);
end;
rc = dclose(dir_id);
run;
%mend;
%delete_all_the_files_in_folder(/sasem/service/Face_IT/Export/)
... View more