Dateien löschen

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von blauglaser · begonnen am 4. Feb 2006 · letzter Beitrag vom 6. Feb 2006

Vorheriger Beitrag

Nächster Beitrag

Waldteufel

(Gast)

n/a Beiträge

Re: Dateien löschen

5. Feb 2006, 11:38

Hi blauglaser.

Wenn schon, dann so:

markieren

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: