probleme verzeichnisse zu suchen

[angos]

Hi und herzlich willkommen.

Also ich hab den Code mal übernommen, und der läuft Fehlerfrei (ok, mein verzeichnis hab ich in nem edit stehen, aber das dürfte ja egal sein...)

Verwende doch zukünfitg DElphi-Tags und formatiere den Code um den code überischtlicher darzustellen

Hier einmal mein Code (es werden die "Verzeichnisse '.' und '..' mitgezählt!)

Delphi-Quellcode:

procedure TForm1.btnClick(Sender: TObject);
var
  fts: TSearchRec;
  fcount, dcount: integer;
begin
  fcount := 0;
  dcount := 0;
  findfirst(edt.Text + '\*.*', 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;

EDIT: Das ist im wesentlichen dein Code, nur halt das der Name des Verzeichnisses aus dem edt gezogen wird... Wie gesagt, bei mir gibt der mir in dem Label exakt die Dateianzahl und Verzeichnisanzahl zurück.
Sicher, dass in dem angegebenen Verzeichnis unterverzichnisse liegen?

Gruß