Delphi-Quellcode:
var
Testdatum : TDateTime;
If FileAge(Serverpfad + SearchRec.name, TestDatum) and ( Testdatum < (Date - 60) ) then
begin
DeleteFile();
end;
Das Problem liegt nicht bei
FileAge(), sondern bei
FileTimeToDateTime(). Diese Umwandlung wird von FileAge() nun schon durchgeführt.