Alle Dateien in Verzeichniss löschen aber den Ordner nicht

[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