Alte Dateien um Mitternacht verschieben

[ernschd]

Hallo zusammen,

ich habe eine Logdatei mit dem aktuellen Datum im Dateinamen, in die per Append geschrieben wird. Somit habe ich täglich eine neue Datei.
Nun suche ich eine Möglichkeit, wie ich evtl. alte Dateien in ein anderes Verzeichnis verschieben kann. Wenn z.B. am 04.05. um Mitternacht die neue Datei 05.05. erstellt wird, soll die vom 04.05. verschoben werden. Gilt auch für ältere vorhandene.
Natürlich kann ich einen Timer laufen lassen, der regelmäßig prüft, ob es ältere Dateien gibt. Finde ich aber nicht so toll.
Dann könnte ich bei jedem Schreiben in die Datei diese Prüfung einbauen - auch eher mäßig gut.

Hat jemand eine Idee, wie ich dieses Problem einfach und effektiv lösen kann?

Vielen Dank im Voraus.

[DeddyH]

Schreib Dir doch ein kleines Programm oder eine Batch-Datei, die das Verschieben übernimmt und starte das dann per geplantem Task um Mitternacht.

[Der schöne Günther]

Zitat:

Zitat von ernschd (Beitrag 1505459)

Dann könnte ich bei jedem Schreiben in die Datei diese Prüfung einbauen - auch eher mäßig gut.

Das hätte ich jetzt als genau die richtige Stelle empfunden 🤷

[KodeZwerg]

Zitat:

Zitat von ernschd (Beitrag 1505459)

ich habe eine Logdatei mit dem aktuellen Datum im Dateinamen

Oder prüfe ob diese Datei neu generiert werden muss, dann weißt Du doch ob Du was altes zum verschieben hast.

[Delbor]

Hi ernschd

Wieso überhaupt eine bestehende Datei in ein anderes Verzeichnis verschieben? Schreib dir eine Klasse, die den Speichervorgang übernimmt und dabei prüft, ob die aktuelle Zeit kleiner als 23:59:59 ist. Wenn ja, wird ins aktuelle (Unter-)Verzeichnis geschrieben, wenn nein, wird ein neues solches angelegt.

Gruss
Delbor

[shebang]

Wie KodeZwerg schon schrieb, die Stelle an der du überprüfst, ob die Datei mit dem aktuellen Datum schon existiert und du sie ggf. mit einem Header erstellst, wäre genau die richtige um die alten Dateien zu verschieben.

Delphi-Quellcode:

if not TFile.Exists(filename) then begin
  content := 'header' + sLineBreak;
  TFile.AppendAllText(filename, content);
  ManageFiles();
end;