【VBA】遍历文件夹及子文件夹

1. 需求
遍历文件夹及子文件夹

2. 实现代码

Function recursiveFolder(strFolder)    Dim fso, objFolder, objFiles, objSubFolder    Set fso = CreateObject("Scripting.FileSystemObject")    If fso.FolderExists(strFolder) Then        Set objFolder = fso.getFolder(strFolder)        Set objFiles = objFolder.Files        Set objSubFolder = objFolder.subFolders        For Each oFile in objFiles            Debug.print "文件名" & oFile.Name        Next        For Each oSubFolder In objSubFolder            recursiveFolder oSubFolder.Path '递归        Next     End IfEnd Function