Dateien Rekursiv suchen -- Klappt nicht ganz

[arnoldo]

Hallo Mirage228,

einen Fehler konnte ich bei Dir nicht gleich entdecken,
jedoch habe ich schon einmal so etwas programmiert.
Mit den folgenden Code-Zeilen müsste es funktionieren.

Delphi-Quellcode:

procedure filelist(path:string);
var f,f2:tsearchrec;
begin
 if findfirst(path+'*.*',faAnyFile,f)=0 then
  begin

   if findfirst(path+'*.htm',faAnyFile,f2)=0 then {falls *.htm Dateien gefunden}
    begin
      form1.ListBox1.Items.Add(path+f2.Name); {ab in die Listbox}
      while findnext(f2)=0 do form1.ListBox1.Items.Add(path+f2.Name);
    end;


    while findnext(f)=0 do {Verzeichniserkennung}
     if ((f.Attr and faDirectory)>0) and (f.name[1]<>'.') then
        filelist(path+f.Name+'\'); {in die nächste Verzeichnisebene}

  end;
 FindClose(f);
end;