Entwickler-Ecke
Dateizugriff - Files / Dateien Löschen mit Datumsangabe
flyer199 - Mo 26.03.07 15:48
Titel: Files / Dateien Löschen mit Datumsangabe
Hallo,
habe da ein kleines Problem und hoffe ihr könnt mir weiterhelfen. Ich versuche Dateien aus einem Verzeichnis zu löschen. Das mach ich mit folgender Funktion:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| function DelFiles(Dir : String) : Boolean;
var
FileOption : TSHFileOpStruct;
begin
ZeroMemory(@FileOption,SizeOf(FileOption));
with FileOption do
begin
wFunc := FO_DELETE;
fFlags := FOF_FILESONLY;
fFlags := FOF_NOCONFIRMATION;
pFrom := PChar(Dir + #0);
end;
Result := (ShFileOperation(FileOption) = 0);
end; |
und rufe die Funktion dann mit
Delphi-Quelltext
1:
| DelFiles('D:\test\AllocLoc*.*') |
auf.
Die Funktion habe ich aus einem anderen Beitrag und funktioniert auch super. Ich kann aber leider nirgends finden wie ich sicherstellen kann das nur Files gelöscht werden die einen oder X Tage älter als das heutige Datum sind?
Die Delphi-Hilfe sowie das Forum habe ich schon durchsucht aber leider habe ich nichts passendes gefunden.
Gruß
Ralf
Delete - Mo 26.03.07 15:52
Da wirst du dir mit FindFirst, FindNext selber eine Liste der zu löschenden Dateien zusammenstellen müssen, die du dann deiner Löschfunktion übergibst.
flyer199 - Mo 26.03.07 15:57
Das habe ich schon befürchtet. Aber wer was schaffen will muss wohl leiden ;-)
Dann werde ich mich wohl mal ranmachen.
Danke
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!