vba中dir函数使用心得

最新推荐文章于 2024-10-18 22:18:07 发布

zjz1228

最新推荐文章于 2024-10-18 22:18:07 发布

阅读量6.6k

点赞数 4

文章标签： vba excel

本文链接：https://blog.csdn.net/zjz1228/article/details/104629321

版权

本文分享了在VBA中使用Dir函数的心得，通过实例展示了如何使用通配符查找文件以及attributes参数的功能。 Dir函数并不按类型匹配，而是按字节匹配，并且attributes参数是包含关系。在查找特定类型的文件夹时，需要配合条件判断语句使用。

摘要由CSDN通过智能技术生成

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 <&