probleme verzeichnisse zu suchen

[1ermehr]

Wiese kann ich mit der FindFirst, FindNext methode nur dateien suchen obwohl es extra einen parameter faDirectory in der FindFirst gibt?
Problemcode:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
fts: TSearchRec;
fcount, dcount: integer;
begin
 fcount := 0;
 dcount := 0;
 findfirst(DirectoryListBox1.Directory+'\*.*',faDirectory,fts);
 listbox1.Items.Add(fts.Name);
 if fts.Attr = faDirectory  then inc(dcount,1)
                            else inc(fcount,1);
 repeat
 findnext(fts);
 listbox1.Items.Add(fts.Name);
 if fts.Attr = faDirectory  then inc(dcount,1)
                            else inc(fcount,1);
 until findnext(fts) <> 0; 

 FindClose(fts);
 label1.Caption := inttostr(fcount+dcount)+' items. ' + inttostr(fcount)+
                   ' files, ' + inttostr(dcount)+ ' directories.';
 end;

Ergebnis: 127 items. 127 files, 0 directories

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]