Alle Dateien in Verzeichniss löschen aber den Ordner nicht

[TUNiX]

Also alà:

C:\Hahaha\*.* löschen. Aber das verzeichniss hahaha soll nicht gelöscht werden. Wie geht das? Hab schon die suche benutz, aber nichts gefunden. Mfg,
TUNiX

[citybreaker]

Hi,
du könnest mit FindFirst und FindNext die Dateien in dem
Verzeichnis suchen und anschließend mit einer for Schleife
löschen.

[Jarmen_Kell]

Wie wärs mit der unschönen Möglichkeit, den Ordnernamen und Ort zu speichern, alles zu löschen und dann Ordner neu erstellen?
Dann braucht man nichts mit Find... zu machen

[DGL-luke]

würde nicht evtl.

shellexecute(application.handle,'del','C:\hahaha\*.*',wshidden); den dienst tun?

EDIT: del ist keine anwendung als solche... aber irgendwie muss man del doch innerhalb der kommandozeile aufrufen können?!

[Luckie]

1.: Ordner mit läöschen und wieder erstellen ist ganz schlecht, dabei gehen nämlich auch die Rechte verloren.
2.: del ist ein Befehl des Kommandozeileninterpreters und muss deshalb als Parameter an selbigen übergeben werden. Beispiele gibt es in der DP genug.
3.: Lösung: Wie schon vorgeschlagen mit FindFirst, FindNext die Dateien suchen und dann mit SHFileOperation löschen. Siehe auch dazu Beiträge in der Code-Lib.

[marabu]

Zitat von DGL-luke:

irgendwie muss man del doch innerhalb der kommandozeile aufrufen können?!

So geht das:

Delphi-Quellcode:

var
  cmd, shell: string;
begin
  shell := GetEnvironmentVariable('COMSPEC');
  cmd := '/c del ' + ParamStr(1) + ' /q';
  ShellExecute(0, '', PAnsiChar(shell), PAnsiChar(cmd), '', SW_HIDE);
end;

Löscht man alle Dateien einzeln, dann kann einem bei dickeren Ordnern schonmal der Geduldsfaden reißen...

Grüße vom marabu