Ordner leeren

[capo]

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

[St.Pauli]

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

[capo]

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