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

Вниз

Подсчет файлов в директории по маске   Найти похожие ветки 

← →
AlexPro!   (2002-06-20 12:56) [0]

Применяю код, но под NT ругается.
function FileCount( sFileSpec: String ): LongInt;
var
Rec : TSearchRec;
begin
Result := 0;
if sFileSpec[Length(sFileSpec)] = "\" then
AppendStr(sFileSpec, "*.*");
if FindFirst(sFileSpec, faAnyFile - faDirectory, Rec) < 0 then
exit;
Inc(Result);
while FindNext(Rec) = 0 do
Inc(Result);
FindClose(Rec);
end;
Подскажите, что не так?

---

← →
Anatoly Podgoretsky   (2002-06-20 20:38) [1]

if FindFirst(sFileSpec, faAnyFile - faDirectory, Rec) = 0

---

← →
AlexPro!   (2002-06-21 10:44) [2]

Спасибо, РАБОТАЕТ !

---

Страницы: 1 вся ветка

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

Наверх

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