VBA 使用FileSystemObject枚举目录中的文件
示例
早期绑定（需要对Microsoft脚本运行时的引用）：
Public Sub EnumerateDirectory()
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim targetFolder As Folder
Set targetFolder = fso.GetFolder("C:\")
Dim foundFile As Variant
For Each foundFile In targetFolder.Files
Debug.PrintfoundFile.Name
Next
End Sub后期绑定：
Public Sub EnumerateDirectory()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim targetFolder As Object
Set targetFolder = fso.GetFolder("C:\")
Dim foundFile As Variant
For Each foundFile In targetFolder.Files
Debug.PrintfoundFile.Name
Next
End Sub
热门推荐
10 国庆酒店祝福语简短独特
11 小孩考过祝福语简短的话
12 生日祝福语女伙伴简短
13 领证结婚搞笑祝福语简短
14 客户激活花束祝福语简短
15 祝寺院师傅祝福语简短
16 求婚朋友祝福语简短精辟
17 古文毕业赠言祝福语简短
18 业主群文案祝福语简短