Verzeichnisse löschen

[Bechti]

Hi,

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

Gruß,
Bechti

[Alexander]

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

[Bechti]

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

[Alexander]

dann dürfte das mit dieser Funktion gehen:

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]

[Bechti]

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.

[Daniel B]

Hallo,

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

GRüsse, Daniel :hi:

[MathiasSimmack]

Zitat:

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

Code:

DelDir('d:\test\2002')

aufrufst. Was du nicht machen darfst, ist

Code:

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

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

[vsh]

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).

[ichbins]

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

[vsh]

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

[mirage228]

Vielleicht sollte man einen Aufruf von ExcludeTrailingPathDelimiter in die Funktion einbringen, das würde das Problem lösen :)

mfG
mirage228