Dateien älter als X Tage löschen...

[wk2001]

Danke für Eure Hilfen...!

@Binärbaum: Prost und herz. Glückwunsch

Hier nochmal mein Code im Endeffekt, falls jemand noch danach sucht.

Delphi-Quellcode:

procedure DeleteOldLogFiles(days : integer = 7);
var
  fileDate : TDateTime;
  res : TStrings;
  i : integer;
begin
 res := TStringList.Create;
 FindFiles(ExtractFilePath(ParamStr(0)), '*.log', False, res);
  for i := 0 to (res.count - 1) do
    begin
      fileDate := FileDateToDateTime(FileAge(res.Strings[i]));
      if (Now - fileDate) > days then DeleteFile(res.Strings[i]);
    end;
 res.Free;
end;