ник: akkorn
Да, все верно. Последний вопрос был связан с памятью (точнее, с предположением вывода ошибки Windows о переполнении памяти при работе этой функции на компьютерах с малым ее обьемом (256 мб и менее)).
Проверьте меня пожалуйста, правильно ли я понял Ваш поледний совет:
Option Compare Database
Public Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Public Function lstFolders(strNameFolder As String)
' процедура получения всех поддиректорий
Dim subFolder As Object
Dim folder As Object
Set folder = Fso.GetFolder(strNameFolder)
For Each subFolder In folder.SubFolders
Debug.Print subFolder.Path
Call lstFolders(subFolder.Path)
Next
End Function
Правда, возникает ошибка на строке
Set Fso = CreateObject("Scripting.FileSystemObject")
Не подскажете, как от нее можно избавиться (необходимо ведь определять эту переменную только ОДИН раз).
Спасибо.