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

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

Есть каталог (папка), необходимо узнать сколько папок находится в [D7, XP]

Aleks ©   (2005-12-25 20:48:00) 

Доброго времени суток, мастера подскажите.
Есть каталог (папка), необходимо узнать сколько папок находится в этом каталоге (папке) и их имена.

---

Aleks   (2005-12-25 21:43:00) [1]

Спасибо .

---

Dmitrij_K   (2005-12-25 20:56:00) [2]

Var SearchRec:TSearchRec;
begin
If FindFirst('c:\Windows\*.*', faAnyFile, SearchRec)=0 then
repeat
  if ((SearchRec.Attr and faDirectory)<>0) and
     (SearchRec.Name<>'..') and
     (SearchRec.Name<>'.') then
     begin
       SearchRec.Name - имя директории
     end
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);

---

Наверх