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文档

 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

 

 

 

转载于:https://www.cnblogs.com/Ionefox/p/10243901.html