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

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

Спасибо .

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