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ß