Hi blauglaser.
Wenn schon, dann so:
Delphi-Quellcode:
Datefile := FindFiles (path, Mask, True);
FilDat := (FileDateToDateTime(FileAge(Datefile)));
if (FilDat <= MyAge) then
begin
fi := DateTimeToStr(FilDat);
DeleteFile(fi);
end;
Dein Code löscht nämlich die Datei immer, speichert den richtigen Dateinamen aber nur, wenn FilDat <= MyAge, in fi ab; Ergo -> Wirrwarr.
Schau dir ggf. auch mal das hier an:
http://www.dsdt.info/grundlagen/spra...zweigungen.php
[edit: Fipptehler ]