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

Вниз

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

← →
Aleks ©   (2005-12-25 20:48) [0]

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

---

← →
Dmitrij_K   (2005-12-25 20:56) [1]

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);

---

← →
Aleks ©   (2005-12-25 21:43) [2]

Спасибо .

---

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

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

Наверх

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