ordner und unterordner (nicht unbedingt leer) löschen

[Sidewinder]

nichts leichter als das....

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