Fileage ist veraltet

[Klaus01]

Delphi-Quellcode:

var
  Testdatum : TDateTime;

If (FileAge(Serverpfad + SearchRec.name,TestDatum)  and (TestDatum < (Date - 60)) then 
begin 
  DeleteFile(); 
end;