ник: osmor
1. не совсем понятно почему... ну попробуйте так:
Public Function lstFolders(strNameFolder As String)
' процедура получения всех поддиректорий
Dim subFolder As Object
Dim folder As Object
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(strNameFolder)
For Each subFolder In folder.SubFolders
Debug.Print subFolder.Path
Call lstFolders(subFolder.Path)
Next
End Function
|
2. эта функция возвращает имена ВСЕХ поддиректория находящихся внутри стартовой директории любого уровня вложенности. т.е. если ее вызвать так:
call lstFolders("c:\")
то будут выведены имена ВСЕХ директорий и поддиректорий которые есть на диске "С".