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
热门推荐
6 祝福语简短的微信
10 美丽祝福语老师文案简短
11 成年礼简短的祝福语
12 新年祝福语简短俏皮文案
13 婚礼伴娘祝福语大全简短
14 生日祝福语男生韩语简短
15 白族结婚祝福语简短大全
16 送女友鲜花祝福语简短
17 中秋祝福语简短女朋友
18 升学宴同学祝福语简短