Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: Dateien löschen

  Alt 4. Feb 2006, 17:04
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
  Mit Zitat antworten Zitat