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

← →
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]

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

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