Hallo zusammen,
ich muß derzeit ein spezielles Backupprogramm schreiben.
Es wird dabei die Information was gespeichert wurde (Report) in eine Datei mit dem Namen des Datums gelegt.
Anschließend erstell ich mit Forcedirectory ein Verzeichnis ebenfalls mit Namen des Datums der Sicherung. In dieses Verzeichnis schaufel ich dann die Daten, die zu sichern sind.
Jetzt das Problem:
Nach einer bestimmten Anzahl Sicherungen soll die älteste Sicherung automatisch gelöscht werden.
Ich hatte dazu folgenden Ansatz, kann das aber momentan nicht ausprobieren. Daher die Bitte mal ansehen und vieleicht bessere Idee mitteilen. hab sowas noch nicht gemacht und möchte nicht aus versehen das falsche Verzeichnis ins Nirvana kicken.
Delphi-Quellcode:
altdatei:=date;
aktdatei:=altdatei;
for i:=0
to filelistbox1.items.count-1
do begin;
aktdatei:=getdateidatum(filelistbox1.items[i]);
if aktdatei<altdatei
then begin;
altdatei:=aktdatei;
altdateiindex:=i;
end;
end;
a10:=filelistbox1.items[altdateiindex];
label16.caption:=a10;
if altdatei<>date
then begin;
deletefile(a1+'
\'+a10);
deletefile(a1+'
\'+a10+'
.dat');
end;
Gruß Matthias