TOPIC:

Hello

I have a requirement to delete data transformation logs older than 20 days old.
Can I do this with Visual Importer ETL

Emiliano

Hello

Something like this should do

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;

George

What actually happens if you won't delete your logs older than 20 days?