[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;

Где ошибка ?

[Pilot_Red]

познакомься с таким понятием, как рекурсия и будет тебе счастье(да и style программирования улучшишь, без всяких там goto))))

[lmikle]

Ошибка - а у тебя вложенные папки тоже имеют расширение .exe???

[volod3000]

Сообщение от Pilot_Red

познакомься с таким понятием, как рекурсия и будет тебе счастье(да и style программирования улучшишь, без всяких там goto))))

Все правильно, но в случае рекурсии Result := 0;

[Pilot_Red]

Сообщение от volod3000

Все правильно, но в случае рекурсии Result := 0;

да... в случае локального счетчика, но если объявишь глобальную переменную-счетчик то все будет гут))

[PhoeniX]

Код:

function FileCount(Dir: string): integer; forward;
...
function FileCount(Dir: string): integer;
var
  fs: TSearchRec;
begin
  Result := 0;
  if FindFirst(Dir + '\*.exe', faAnyFile, fs) = 0 then repeat
    inc(Result);
  until FindNext(fs) <> 0;
  FindClose(fs);
  if FindFirst(Dir + '\*', faDirectory, fs) = 0 then repeat
    if fs.name[1] <> '.' then begin
      inc(Result,FileCount(Dir+fs.name));
    end;
  until FindNext(fs) <> 0;
  FindClose(fs);
end;

[volod3000]

DJ PhoeniX Спасибо, получилось.

Только добавил '\'

Код:

inc(Result,FileCount(Dir+ '\'+fs.name));

и объявление

Код:

function FileCount(Dir: string): integer; forward;

ненужно (Это я как понимаю для Delphi ниже 8)