就是搞個遍歷文件夾的小操作，核心代碼來咯～
先去工程里點引用，把 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
搞定，跑起來就能把整個文件夾結構擼一遍，賊方便~