Question

过去两天我一直在使用Excel VBA，而且进展顺利。目前，我使用下面的代码列出指定目录中的所有文件名。代码正在运行，但我也想了解原因。

这是我从代码中得到的：

代码在目录中查找扩展名为.xlsx的文件那个*
如果名称不为空，则用+ 1迭代i并填充带文件名的数组。
然后，文件名变为dir fName = Dir（）

有人可以解释“fName = Dir（）”的原因，Dir（）做了什么？

我的代码：

fName = Dir("C:\xls\" & "*.xlsx")
While fName <> ""
    I = I + 1
    ReDim Preserve fileList(1 To I)
    fileList(I) = fName
     fName = Dir() 'uitzoeken hoet dit werkt
Wend

Thnx：）

Answer 1

 fName = Dir("C:\xls\" & "*.xlsx")

如果找到匹配的文件则返回filename，否则返回空字符串

并获取下一个匹配文件调用dir（）函数，不带任何参数

     fName = Dir() ' Get next entry.

VBA列出目录中的文件

1 个答案: