Текущий архив: 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.049 c
