Dateien Rekursiv suchen -- Klappt nicht ganz

[arnoldo]

Danke für den Tipp, das ist mir noch gar nicht aufgefallen.
Werde das gleich mal korrigieren:

Delphi-Quellcode:

 *if ((f.Attr and faDirectory)>0) and 
      (f.name<>'.') and (f.name<>'..') then 
     filelist(path+f.Name+'\');