Sub test()
Dim file As String
file = Dir("D:\test\") '注意,目录最后的斜杠不能省略
Do While file <> ""
Debug.Print file
file = Dir()
Loop
End Sub
VBA遍历文件夹下的所有文件
最新推荐文章于 2024-01-18 20:54:38 发布
Sub test()
Dim file As String
file = Dir("D:\test\") '注意,目录最后的斜杠不能省略
Do While file <> ""
Debug.Print file
file = Dir()
Loop
End Sub