Option Explicit

Private mobjFSO As New FileSystemObject

Private Sub Command1_Click()
Dim strFolder As String
Dim objFolder As Folder

strFolder = Text1.Text
Set objFolder = mobjFSO.GetFolder(strFolder)
ShowSubFolders objFolder

End Sub

Sub ShowSubFolders(ByRef ioobjStartFolder As Folder)

Dim objFolder As Folder
Dim Subfolder As Folder

For Each Subfolder In ioobjStartFolder.SubFolders
Set objFolder = mobjFSO.GetFolder(Subfolder.Path)
MsgBox objFolder.Path
ShowSubFolders Subfolder
Next

End Sub

Можно то можно, но с каких это пор объектное программирование стало хуже традиционного? Кстати, а что, кто-то надорвется, если подключить Scripting?

:0))

OK, я сказал: лучше!