Dir函数

返回一个 String，它表示与指定模式或文件属性或驱动器的卷标匹配的文件、目录或文件夹的名称。

语法

Dir[(pathname、 [属性])]

Dir 函数语法具有以下部分：

部分	说明
pathname	可选。 字符串表达式，指定一个文件名;可能包含目录或文件夹，和驱动器。 零长度字符串 ("") 将返回如果_pathname_找不到。
属性	可选。 常量或数值表达式，其和指定的文件属性。 如果省略，则返回的匹配_路径名_但没有属性的文件。

设置

Attributes 参数设置为：

常量	值	说明
vbNormal	0	（默认）指定没有属性的文件。
vbReadOnly	1	指定只读文件以及不带属性的文件。
vbHidden	2	指定隐藏文件以及不带属性的文件。
vbSystem	4	指定系统文件文件以及不带属性。 在 Macintosh 中不可用。
vbVolume	8	指定卷标;如果指定任何其他属性，则忽略vbVolume 。 在 Macintosh 中不可用。
vbDirectory	16	指定目录或文件夹以及不带属性的文件。
vbAlias	64	指定的文件名为别名。 仅在 Macintosh 上可用。

例子：遍历当前路径下的TXT文档

Sub DirTest()
    Dim FilePath As String, FileName As String
    FilePath = ThisWorkbook.Path & ""
    FileName = dir(FilePath & "*.txt")
    
    Do While FileName <> ""
        Debug.Print FileName
        FileName = dir
    Loop
End Sub