Текущий архив: 2002.07.04;
Скачать: CL | DM;

Вниз

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

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.017 c