![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Здравствуйте !
Вот функция , которая ни как не хочет заглядывать во вложенные папки. Код:
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; Где ошибка ? |