| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подсчет файлов в директории по маске [D6, NT4]

AlexPro! ©   (2002-06-20 12:56:00) 

Применяю код, но под 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;
Подскажите, что не так?

---

AlexPro!   (2002-06-21 10:44:00) [1]

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

---

Anatoly Podgoretsky   (2002-06-20 20:38:00) [2]

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

---

Наверх