Hallo,
if FindFirst(Directory+Mask,faAnyFile and not faDirectory, SR) = 0 then
Woher hast du denn das
and not ??
Das wird per
or zusammengefasst
Nimm das mal komplette raus und rpprüfe in der repeat until,
ob die jeweiliges "Datei" ein Verzeichnis ist.
Delphi-Quellcode:
if if (SR.Attr and faDirectory) = faDirectory then
begin
List.Add(XXX)
end;
Heiko