Текущий архив: 2004.09.26;
Скачать: CL | DM;
Вниз
Количество файлов в папке Найти похожие ветки
← →
Antonmm (2004-09-11 21:39) [0]Как определить количество файлов и папок в папке?
← →
Рыба © (2004-09-11 21:54) [1]function NumFilesInDir(const Dir: string): Integer;
var SearchRec: TSearchRec;
begin
Result := 0;
if FindFirst(Dir, faAnyFile, SearchRec) = 0 then
repeat
Inc(Result);
until FindNext(SearchRec) <> 0;
end;
← →
Jel © (2004-09-11 22:07) [2]repeat
if SearchRec.Name[1] <> "." then Inc(Result);
until FindNext(SearchRec) <> 0;
иначе будет на 2 больше для некорневого каталога (. и ..)
← →
Рыба © (2004-09-11 22:14) [3]>Jel © (11.09.04 22:07) [2]
Верно. Виноват. налету писал по памяти.
Страницы: 1 вся ветка
Текущий архив: 2004.09.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.045 c
