Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.046 c
4-1092332162
NLO
2004-08-12 21:36
2004.09.26
Запись в файл


14-1094805509
Holy
2004-09-10 12:38
2004.09.26
По мотивам Ночного дозора...


4-1092198053
DelphiN!
2004-08-11 08:20
2004.09.26
Как проверить зарегестрирован ли сервис в системе?


1-1094972135
Navi
2004-09-12 10:55
2004.09.26
Владелец коллекции


1-1094633983
Koala
2004-09-08 12:59
2004.09.26
Удаление файла