Ordner löschen?

[gandime]

Hi,
diese Frage hört sich zwar banal an aber ich finde es nicht heraus wie ich in Delphi einen leeren Ordner lösche...
ichh abs bei mit der Forumsuche versucht, bei google und bei der Delphi-Hilfe, wo ich das gefunden habe:
DeleteFolder(folderPath) welches bei mir aber auch nicht geht!
Brauche ich dafür vlt nen uses? stand nicht in der Hilfe oder bei Google

Hilfe...

mfg
gandime

[GroHae]

RemoveDir oder?

[gandime]

jop genau das habe ich gesucht aber leider nicht gefunden danke

[Christian Seehase]

Moin Gandime,

das sollte auch mit einem SHFileOperation-Aufruf funktionieren.
Damit sollte man dann auch einen Ordner in den Papierkorb verschieben können.

[shmia]

Zitat von gandime:

jop genau das habe ich gesucht aber leider nicht gefunden

Da gibt's einen einfachen Trick:
du kennst doch sicher DeleteFile(), oder?
Im Sourcecode hinschreiben und F1 drücken; die Hilfe zu DeleteFile erscheint.
Dort findet sich dann ein Hyperlink auf "file management routines" und von dort ist es nicht mehr weit zu RemoveDir.
Eigentlich ganz einfach...

[Luke_83]

Ergänzende Frage : Gibt es auch eine Möglichkeit Ordner zu löschen in denen sich Dateien und Unterordner befinden.

RemoveDir(Path) funktioniert ja nur bei leeren Ordnern.

[fwsp]

Zitat von Luke_83:

Ergänzende Frage : Gibt es auch eine Möglichkeit Ordner zu löschen in denen sich Dateien und Unterordner befinden.

muss man das vllt auch wie das auflisten von dateien machen? rekursiv durch alle ordner?
in php muss man das auch so machen

[scrat1979]

Zitat von Luke_83:

Ergänzende Frage : Gibt es auch eine Möglichkeit Ordner zu löschen in denen sich Dateien und Unterordner befinden.

RemoveDir(Path) funktioniert ja nur bei leeren Ordnern.

Wie schon angedeutet wurde, würde ich mir alle Dateien (inkl. in den Unterordnern) auflisten (Stichwort Rekursive Suche, Suchfunktion liefert massenweise Ergebnisse ).
Speichere alle Verzeichnisse (kannst diese aus den Dateinamen aus der rekursiven Funktion bekommen...) in eine StringList und lösche dann die Dateien (zB. schon in der Funktion).
Danach die StringListe durchgehen und RmDir(Liste[Index]) von 0 bis (Liste.Count-1) durchlaufen. Voila!

Ohne Exception-Handling ganz einfach zu machen. Beachte aber auch, daß evtl. Dateien geöffnet sein könnten und somit nicht zum löschen freigegeben sind....

SCRaT

//EDIT: Könnte sein, daß es mit SHFileOperation auch einfacher funktioniert...

[cruiser]

Hier mal ein Schnipselchen dazu:

löscht Dateien und Verzeichnisse (incl. Subdirs)

Delphi-Quellcode:

function RM(FileName: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  FileName := ExcludeTrailingPathDelimiter(FileName);
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;  // für Fehlermeldungen FOF_NOCONFIRMATION weglassen
    pFrom := PChar(FileName + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;