Здравствуйте !
Вот функция , которая ни как не хочет заглядывать во вложенные папки.
Код:
function FileCount(Dir: string): integer;
var
fs: TSearchRec;
label n;
begin
Result := 0;
n:
if FindFirst(Dir + '\*.exe', faAnyFile, fs) = 0 then
repeat
inc(Result);
if (fs.Attr and faDirectory) = faDirectory then
begin
Dir := (Dir+fs.name);
goto n;
end;
until
FindNext(fs) <> 0;
FindClose(fs);
end;
Где ошибка ?