List Box

[_Мика_]

Как в List Box'е отабразить папки содержащиеся в другой папки (ну завернул) ну в смысле есть папка C:\1 и в ней есть ну еще 5 папок вот как эти 5 папок отабразить в List Box

[Tarik]

С помощью FSO:

Прицепляешь к проекту библиотеку Microsoft Scripting runtime и пишешь:

Код: Выделить всё

Option Explicit
Dim fso As New FileSystemObject
Dim folder As folder

Private Sub Form_Load()
Set folder = fso.GetFolder("C:\windows")
For Each folder In folder.SubFolders
    List1.AddItem folder.Name
Next
End Sub


[_NeoN_]

DIR рулит!

[Tarik]

Рулить-то он, конечно, рулит, но я его что-то не смог заюзать для этой задачи

[_Мика_]

А че у тебя не рулит у меня все прекрасно рулит

_______________Спасибо!

[Tarik]

Упорно не хочет рулить следующее:

Код: Выделить всё

Dim cFile As String
Private Sub Form_Load()
cFile = Dir("C:\Windows\", vbDirectory)
While cFile <> ""
    List1.AddItem cFile
    cFile = Dir
Wend
End Sub


Почему-то выдаёт файлы вместо папок... Может у меня руль неправильный?