Dateianzahl ermitteln

[Brüggendiek]

Hallo!

@himitsu: Im Prinzip hattest Du doch Recht mit "." und ".." - nur hast Du das an der falschen Stelle geprüft!

Der Code von Sanchez zählt nämlich auch die Directories "." und ".." mit - eindeutig ein schwerer Fehler! Deine Abprüfung muß also beim Directory-Zweig stehen.

Mit einer Hilfsvariablen wird es übrigens noch einfacher (verkürzt auf den sinngebenden inhalt):

Delphi-Quellcode:

var code:integer;

code := FindFirst(...)
while code = 0 do
begin
  ... tu was mit gefundenem
  code := findnext(...);
end;

Gruß

Dietmar Brüggendiek