Hallo Ralf,
wenn du die Dateien mit FindFirst() und seinen Verwandten anhand einer Namensangabe aus dem Dateisystem angelst, dann erhältst du als Beigabe die timestamps in der Struktur SearchRec.FindData. Die Zeiten kannst du dann mit FileDateToDateTime() in das Delphi-Format umwandeln und dann mit beliebigen TDateTime-Werten vergleichen. Bei Datumsvergleichen bedenke, dass du nur den ganzzahligen Anteil von TDateTime-Werten berücksichtigen darfst.
Wenn du nur anhand eines Dateinamens auf das Datum der Datei zugreifen möchtest, dann hilft dir FileAge() weiter. Auch hier muss FileDateToDateTime() nachgeschaltet werden.
Wenn du mehrere Dateien löschen willst, deren Namen in deiner ListBox vermerkt sind, dann kannst du eine Schleife verwenden:
Delphi-Quellcode:
with ListBox do
for i := 0 to Pred(Items.Count) do
DeleteFile(Items[i]);
Grüße vom marabu
Zitat
Baum-Darstellung
