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 妈妈生日祝福语简短励志