Hello
I’ve been working on setting up some packages and was wanting to either delete or move files dependent upon their age to archive directories or just deleting them. I found the following within your forum regarding deleting files > 30 days old.
var i: integer;
Rec : TSearchRec;
Attr : integer;
SearchDirectory,Mask : string;
Begin
SearchDirectory:='c:\';
Mask:='*.csv';
Attr := faReadOnly+faHidden+faArchive+faAnyFile;
if FindFirst(SearchDirectory+Mask,Attr,Rec) = 0 then
try
repeat
if ((Rec.Name='..') or (Rec.Name='.'))=false then
begin
if FormatDateTime('YYYY-MM-DD',FileDateToDateTime(FileAge(SearchDirectory+Rec.Name)))<FormatDateTime('YYYY-MM-DD',now-30) then
DeleteFile(SearchDirectory+Rec.Name);
end;
until FindNext(Rec) <> 0;
finally
FindClose(Rec);
end;
result:=true;
end;
Pretty complicated script for novices like me. Then having to tweak it for copying or moving.
It occurred to me that another nice enhancement to your product would be to add the capability to your “File Operations” within Packages to copy, move or delete files greater than a certain number of days, months or years.
Oscar
