Рекурсивны подпапки доступа файлы внутри папки

Question

Я написал этот код, чтобы получить доступ к файлам Excel в папке:

strPath="C:\Test\" 

Set objFso = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder (strPath) 
Set objExcel= CreateObject("Excel.Application") 
objExcel.Visible= False 

For Each objFile In objFolder.Files 
If objFso.GetExtensionName(objFile.Path) = "xls" Then 

Теперь я должен создать несколько подпапок и поставить некоторые .xls файлы в тех.

Какая модификация должна быть сделана в моем коде для поиска файлов в основной папке и во всех других подпапках (есть также некоторые папки внутри подпапок)?

Answer 1

Это на самом деле проблема. Рекурсия означает, что вы создаете функцию саморегуляции (функция, которая вызывает себя). В вашем случае вы должны сделать вызов функции для каждой вложенной папки текущей папки.

TraverseFolders objFso.GetFolder(strPath) 

Function TraverseFolders(fldr) 
    ' do stuff with the files in fldr here, or ... 

    For Each sf In fldr.SubFolders 
    TraverseFolders sf '<- recurse here 
    Next 

    ' ... do stuff with the files in fldr here. 
End Function 

Answer 2

Выполнить это в начале вашего скрипта, он будет список всех файлов во всех папках:

dir /S/B > AllFoldersAndFiles.txt 

затем цикл по списку файлов. Это работает для меня.

Рекурсивный vb немного сложный.