Hallo,
wie kann ich einen Odner leeren, ich such schon den halben Tag nach einer Lösung.
Gefunden habe ich folgenden Code:
Delphi-Quellcode:
function DelDir(dir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do begin
wFunc := FO_DELETE;
fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOERRORUI;
pFrom := PChar(dir + #0);
end;
Result := (0 = ShFileOperation(fos));
end;
Der löscht aber den kompletten Ordner.
Wäre froh wenn mir jemand weiter hilft.
Gruss vom capo