就是搞个遍历文件夹的小操作，核心代码来咯～
先去工程里点引用，把 Microsoft Scripting Runtime 勾上。
然后上这两个函数，递归走起就完事了。
Sub main()
Dim objFSO As Object
Dim objTemplateFolder As Object
Set objFSO = New Scripting.FileSystemObject
Set objTemplateFolder = objFSO.GetFolder(D:)
getFiles objTemplateFolder
End Sub
Sub getFiles(ByRef theFolder As Object)
Dim folder As Object
Dim c As New Scripting.FileSystemObject
' 你想要的操作写这儿，比如打开文件、改名啥的都行
For Each folder In theFolder.SubFolders
getFiles folder ' 递归进子文件夹继续扫
Next
End Sub
搞定，跑起来就能把整个文件夹结构撸一遍，贼方便~
先去工程里点引用，把 Microsoft Scripting Runtime 勾上。
然后上这两个函数，递归走起就完事了。
Sub main()
Dim objFSO As Object
Dim objTemplateFolder As Object
Set objFSO = New Scripting.FileSystemObject
Set objTemplateFolder = objFSO.GetFolder(D:)
getFiles objTemplateFolder
End Sub
Sub getFiles(ByRef theFolder As Object)
Dim folder As Object
Dim c As New Scripting.FileSystemObject
' 你想要的操作写这儿，比如打开文件、改名啥的都行
For Each folder In theFolder.SubFolders
getFiles folder ' 递归进子文件夹继续扫
Next
End Sub
搞定，跑起来就能把整个文件夹结构撸一遍，贼方便~