vba中dir用法_vba中dir函数使用心得

Dir[(pathname[,attributes])]

构建测试环境如下：

一、测试在dir函数中使用通配符来查找多个文件，在VBE中输入代码如下：

Sub ListFiles()

Dim strPath As String, strTmp As String

strPath = "c:\test\"

strTmp = Dir(strPath & "*.txt")

Do While strTmp <> ""

Debug.Print strPath & strTmp

strTmp = Dir

Loop

End Sub

本意为查找所有txt文档，得到结果如下：

c:\test\vba.txt

c:\test\新建文本文档.txtd

c:\test\新建文本文档 (2).txt

程序运行结果中不但包括txt文档，还包含txtd文件。

二、测试attributes参数，代码如下：

Sub ListSubFolder()

Dim strPath As String, strTmp As String

strPath = "c:\test\"

strTmp = Dir(strPath & "vb*", vbDirectory)

Do While strTmp <> ""

Debug.Print strPath & strTmp

strTmp = Dir

Loo