Einen Ordner komplett löschen

[qb-tim]

RemoveDir(Ordner) Das ist der Befehl einen Ordner zu löschen - dies geht aber nur, wenn der Ordner leer ist...

Wie lösche ich ALLE sich in dem Ordner befindenden Dateien UND Ordner auch?

[Hawkeye219]

Hallo,

du könntest es so machen, wie es in diesem Thread beschrieben wird.

Gruß Hawkeye

[SirThornberry]

hier noch eine Variante:

Delphi-Quellcode:

procedure DeleteFiles(FilenameMask: String);
var LRec: TSearchRec;
    LPath: String;
begin
  if FindFirst(FilenameMask, faAnyFile, LRec) = 0 then
  begin
    LPath := ExtractFilePath(FilenameMask);
    repeat
      if (LRec.Name <> '.') and (LRec.Name <> '..') then
        DeleteFile(LPath + LRec.Name);
    until FindNext(LRec) <> 0;
  end;
  FindClose(LRec);
end;

function DeleteDirectory(ADirName: String): Boolean;
var LRec: TSearchRec;
begin
  DeleteFiles(ADirName + '\*');
  if FindFirst(ADirName + '\*', faDirectory + faHidden + faSysFile, LRec) = 0 then
  begin
    repeat
      if (copy(LRec.name, 1, 1) <> '.') and DirectoryExists(ADirName + '\' + LRec.Name) then
        DeleteDirectory(ADirName + '\' + LRec.Name);
    until FindNext(LRec) <> 0;
  end;
  FindClose(LRec);
  Result := RemoveDir(ADirName)
end;

[himitsu]

Oder mit SHFileOperation, obwohl ich es auch gern selber mache (wie oben beschrieben), denn da kann man notfalls auch mal etwas mehr Einfluß (z.B. 'ne genauere FehlerMeldung ausgeben, also auch mal an wlcher Datei es ganz genau hängt).

[qb-tim]

@ SirThornberry

Ich blicke leider nicht durch.

Nehmen wir an ich möchte den Ordner "C:\test" mitsamt den Inhalt löschen.

Wie wende ich dann deine Prozeduren in einer OnClick prozedur an?

[SirThornberry]

Dann musst du die Funktion DeleteDirectory aufrufen:
DeleteDirectory('c:\test');

[qb-tim]

[Fehler] Unit3.pas(129): Undefinierter Bezeichner: 'DeleteDirectory'

[Klaus01]

Wo hast denn Du die Prozeduren hingeschrieben.

Hast Du sie als Methode der Form zugewiesen? Das ist nicht nötig.

Grüße
Klaus

[qb-tim]

Ich habe Sie mit allen anderen Prozeduren (wie FormActivate oder ButtonClick)

Ich habe nichts anderes getan, als den Quellentext von SirThornberry und eine Zeile in einer OnClick prozedur hinzugefügt.

[Klaus01]

.. und steht diese OnClick Methode vor oder hinter den eingefügten Prozeduren?
Sie (die OnClick Methode) sollte dahinter stehen.

Grüße
Klaus