Delphi-PRAXiS - Delphi Ordner leeren

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Ordner leeren (https://www.delphipraxis.net/79903-ordner-leeren.html)

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

Re: Ordner leeren

Probier mal den Pfad 'Ordnerpfad\*.*' zu übergeben...

Re: Ordner leeren

Jepp das wars, ich glaub ich brauch mal eine Pause :coder2:
Danke.
capo