Hallo zusammen,
also ein Stück weiter bin ich gekommen das löschen der Datei wird nicht gleich übersprungen aber es kommt die Meldung "ungültiges Argument in Datumscodierung" aus FindFiles wir z.B. "test.txt" an die Variable übergeben dann wandle ich die Variable mit
Delphi-Quellcode:
Datefile := FindFiles (path, Mask, True);
FilDat := (FileDateToDateTime(FileAge(Datefile)));
um MyAge ist ja vom Typ TDateTime dann will ich mit:
if (FilDat <= MyAge)
vergleichen ob FilDat kleiner oder gleich MyAge ist wen ja
Delphi-Quellcode:
then
fi:=DateTimeToStr(FilDat);
begin
DeleteFile(fi);
end;
soll die Datei gelöscht werden.
Das mit der Listbox habe ich mal ganz rausgenommen sonst geht mir der Überblick verloren (wenn es nicht schon so weit ist)
Gruss und einen schönen kalten Sonntag
Ralf