Главная страница
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.043 c
14-1094725175
Ditrix
2004-09-09 14:19
2004.09.26
свободное ПО. конференция в Киеве.


1-1094827912
Андрей-КА
2004-09-10 18:51
2004.09.26
Сообщение об открытии папки (С: Temp)


9-1083384939
dimodim
2004-05-01 08:15
2004.09.26
Помогите с моделями на Жлсцене


3-1093926955
HanIP
2004-08-31 08:35
2004.09.26
функция, которая выбирает товары


3-1093867645
Yrtimd
2004-08-30 16:07
2004.09.26
Что такое FireBird?