Hi,

versuche ein Unterverzeichnis mit Delphi zu löschen. Weiß jemand wie?

Gruß,
Bechti

hi
mit dem Befehl RemoveDir(ordner_mit_Pfad) kannst du ein Verzeichnis löschen

Danke,
habe aber vergessen zu erwähnen, daß ich Verzeichnisse mit Inhalt löschen möchte

dann dürfte das mit dieser Funktion gehen:

zusammenfalten · markieren

Delphi-Quellcode:

function DelDir(dir: string): Boolean;
uses
 ShellApi;
...
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;

Viel Spass damit!

[edit]Delphi-Codetags eingefügt. Mfg. Gérome[/edit]

Vielen Dank.

Allerdings kann ich hiermit nicht das gewünschte Verzeichnis, sondern nur dessen inhalt löschen.

Wenn ich z.b. als Dir = 'd:\test\2002' eingebe, löschte er nicht "2002" sondern alles was darunter liegt. Möchte aber gerne "2002" und alles darunter löschen.

Hallo,

dann schreib doch nach der Funktion noch RemoveDir()...

GRüsse, Daniel

Zitat von Bechti:

Allerdings kann ich hiermit nicht das gewünschte Verzeichnis, sondern nur dessen inhalt löschen.

Wenn ich z.b. als Dir = 'd:\test\2002' eingebe, löschte er nicht "2002" sondern alles was darunter liegt.

Das stimmt nicht! Ich hab´s mal eben ausprobiert, weil ich sowieso gerade ein Verzeichnis löschen musste ... war weg ...

Zitat:

Möchte aber gerne "2002" und alles darunter löschen.

Tut er, wenn du die Funktion

markieren

Code:

DelDir('d:\test\2002')

aufrufst. Was du nicht machen darfst, ist

markieren

Code:

DelDir('d:\test\2002\*.*')

Dabei wird nur der Inhalt gelöscht, der Ordner "2002" selbst bleibt zurück.

hmm, ich danke erstmal für den programmcode der löschfunktion, und möchte noch eine frage anhängen.
manchmal ist der Ordner komplett gelöscht, manchmal ist er nur leer.

So richtig schlüssig wann welcher fall eintritt ist es irgendwie nicht. aber häufig tritt der fall auf, wenn ich zB viele kleine dateien verschiedenen typs habe (4000 files, ings 70MB).

vllt liegt das daran ob der Ordnername ein abschliessendes backslash ('\') enthält oder nicht.

also wenn man ein abschliessendes "\" übergibt, dann löscht er nichts.