Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];

Вниз

Количество файлов в папке   Найти похожие ветки 

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.037 c