Главная страница
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.022 c
14-1094553293
Alibaba
2004-09-07 14:34
2004.09.26
Восстановление


14-1094333513
kull
2004-09-05 01:31
2004.09.26
Как писать ТЗ?


1-1094627427
Gepard
2004-09-08 11:10
2004.09.26
TOpenDialog


3-1093604914
Aleksandr.
2004-08-27 15:08
2004.09.26
Скажите, BDIInit надо вызывать в каждом потоке, работающем с БДЕ?


3-1093607081
Rost
2004-08-27 15:44
2004.09.26
Работа с access