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?

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

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

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

nichts leichter als das....

zusammenfalten · markieren

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

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?

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

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

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

markieren

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

Zitat:

Warum so kompliziert und fehleranfällig?

Vielleicht aus pädagogischen Gründen?

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