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
