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