ordner und unterordner (nicht unbedingt leer) löschen

[cRayZo]

hi, ich möchte einen ordner löschen, der unterordner und textdateien drin hat. Bisher weiß ich nur, wie man leere ordner löschen kann..

RmDir RemoveDir etc..

kann mir jemand helfen?

[Luckie]

Am einfachsten geht das wohl mit der API-Funktion SHFileOperation.

[taaktaak]

Oder selbstgestrickt und in zwei Schritten:
- erst alle vorhandenen Dateien suchen und löschen
- dann Verzeichnis(se) löschen

[cRayZo]

wie kann ich denn die dateien in einem Ordner löschen?
(alle txt datein sind in einem ordner, ich muss sie also nicht suchen)

[Sidewinder]

nichts leichter als das.... :hello:

Delphi-Quellcode:

uses attr;
 var findresult       : integer;
     dirinfo          : Tfilesearchrec;
     label jumpfindnext;       //jumpmark
...
  findresult := attr.Findfirst({pfad}'*.*',{attribute}attr.Canyfile,dirinfo);
  if findresult = 0 then
  begin
    repeat
      if self.dirinfo.name = '.'           then goto jumpfindnext;
      if self.dirinfo.name = '..'          then goto jumpfindnext;
      if self.dirinfo.attr and attr.Cfolder <> 0 then
      begin
        //ordner gefunden
          goto jumpfindnext;
      end;
      //datei gefunden 
      //hier kannst du löschen..
      jumpfindnext:
    until (attr.FindNext(self.dirinfo) <> 0);
    attr.FindClose(self.dirinfo);
  end
  else
    //errorstuff

hab meine attr.pas noch dazugepackt..

[taaktaak]

3 kurze Anmerkungen:

• Eine Suche nach den Dateien ist schon erforderlich, da der Löschprozedur keine Wildcards übergeben werden können. Nur absolute Pfade. Insofern kannst du mit der Angabe "*.txt" direkt keine Löschoperationen starten.

• Der vorstehende Codeschnipsel ist optimierungsfähig. Insbesondere sind die GOTO's entbehrlich. Sollte man sich besser gar nicht erst angewöhnen; sind auch meist durch bessere Strukturen zu vermeiden.

• Solle das 'ne freie Prozedur oder eine Methode sein?

[Sidewinder]

hab vergessen die "selfs" zu entfernen...sorry

löschen ist möglich mit
"dirinfo.name"
mit der pfadangabe natürlich

[teebee]

Warum so kompliziert und fehleranfällig? Luckie hat doch schon die Lösung gepostet.

Delphi-Quellcode:

Uses ShellApi;

Var shfop: TSHFILEOPSTRUCT;

  ZeroMemory(@shfop,sizeof(shfop));
  shfop.pFrom := PChar(FolderToDelete+#0); // doppelte Null am Ende
  shfop.fFlags := FOF_SILENT Or FOF_NOCONFIRMATION;
  shfop.wFunc := FO_DELETE;
  SHFileOperation(shfop);

[taaktaak]

Zitat:

Warum so kompliziert und fehleranfällig?

Vielleicht aus pädagogischen Gründen? :zwinker:

[Sidewinder]

für Probleme gibt es immer mehr als eine lösung....

Zitat:

Vielleicht aus pädagogischen Gründen

warum nicht... immer ein schritt nach dem anderen
erst 0815 dann supercoder :coder2: