Dir函数
返回一个 String，它表示与指定模式或文件属性或驱动器的卷标匹配的文件、目录或文件夹的名称。
语法
Dir[(pathname、 [属性])]
SRE实战 互联网时代守护先锋，助力企业售后服务体系运筹帷幄！一键直达领取阿里云限量特价优惠。
Dir 函数语法具有以下部分：
| 部分 | 说明 |
|---|---|
| pathname | 可选。 字符串表达式，指定一个文件名;可能包含目录或文件夹，和驱动器。 零长度字符串 ("") 将返回如果_pathname_找不到。 |
| 属性 | 可选。 常量或数值表达式，其和指定的文件属性。 如果省略，则返回的匹配_路径名_但没有属性的文件。 |
设置
Attributes 参数设置为：
| 常量 | 值 | 说明 |
|---|---|---|
| vbNormal | 0 | （默认）指定没有属性的文件。 |
| vbReadOnly | 1 | 指定只读文件以及不带属性的文件。 |
| vbHidden | 2 | 指定隐藏文件以及不带属性的文件。 |
| vbSystem | 4 | 指定系统文件文件以及不带属性。 在 Macintosh 中不可用。 |
| vbVolume | 8 | 指定卷标;如果指定任何其他属性，则忽略vbVolume 。 在 Macintosh 中不可用。 |
| vbDirectory | 16 | 指定目录或文件夹以及不带属性的文件。 |
| vbAlias | 64 | 指定的文件名为别名。 仅在 Macintosh 上可用。 |
例子：遍历当前路径下的TXT文档
1 Sub DirTest() 2 Dim FilePath As String, FileName As String 3 FilePath = ThisWorkbook.Path & "\" 4 FileName = dir(FilePath & "*.txt") 5 6 Do While FileName <> "" 7 Debug.Print FileName 8 FileName = dir 9 Loop 10 End Sub
更多精彩
