Подпапки
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 4
• Страница 1 из 1
- _Мика_
- Гуру
- Сообщения: 1459
- Зарегистрирован: 24.10.2003 (Пт) 15:05
- Откуда: г. Москва, м.Речной вокзал
_Мика_ » 04.04.2004 (Вс) 9:48
Dim fso As New FileSystemObject
Dim folder As folder
Set folder = fso.GetFolder(zPath)
For Each folder In folder.SubFolders
List1.AddItem folder.Name
предварительно надо подцепить библу
Project-->Referenses Microsoft Scripting Runtime
Dim folder As folder
Set folder = fso.GetFolder(zPath)
For Each folder In folder.SubFolders
List1.AddItem folder.Name
предварительно надо подцепить библу
Project-->Referenses Microsoft Scripting Runtime
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!
-гы гы гы, сынок, лол!
<DELETE> 
- Kostyan
- Постоялец
- Сообщения: 439
- Зарегистрирован: 20.09.2002 (Пт) 4:14
- Откуда: Россия, Уссурийск
Kostyan » 05.04.2004 (Пн) 0:22
Можно и без АПИ
i = кол-во папок на диске C:
- Код: Выделить всё
s = Dir$("C:\", vbDirectory + vbHidden + vbSystem)
Do While s <> ""
If GetAttr("C:\" & s) = vbDirectory Then i=i+1
s = Dir$
Loop
i = кол-во папок на диске C:
Нет ничего невозможного для человека с интеллектом.
Сообщений: 4
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 2