[volod3000]

Здравствуйте !

Вот функция , которая ни как не хочет заглядывать во вложенные папки.

Код:

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;

Где ошибка ?