就是搞個(gè)遍歷文件夾的小操作，核心代碼來(lái)咯～
先去工程里點(diǎn)引用，把 Microsoft Scripting Runtime 勾上。
然后上這兩個(gè)函數(shù)，遞歸走起就完事了。
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
' 你想要的操作寫(xiě)這兒，比如打開(kāi)文件、改名啥的都行
For Each folder In theFolder.SubFolders
getFiles folder ' 遞歸進(jìn)子文件夾繼續(xù)掃
Next
End Sub
搞定，跑起來(lái)就能把整個(gè)文件夾結(jié)構(gòu)擼一遍，賊方便~
先去工程里點(diǎn)引用，把 Microsoft Scripting Runtime 勾上。
然后上這兩個(gè)函數(shù)，遞歸走起就完事了。
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
' 你想要的操作寫(xiě)這兒，比如打開(kāi)文件、改名啥的都行
For Each folder In theFolder.SubFolders
getFiles folder ' 遞歸進(jìn)子文件夾繼續(xù)掃
Next
End Sub
搞定，跑起來(lái)就能把整個(gè)文件夾結(jié)構(gòu)擼一遍，賊方便~