VBA小白入门之：查找文件及目录（Dir函数）
2020-09-04 本文已影响0人
離塵真心
一、基本语法
Dir[(pathname[, attributes])]
其中attributes可不填。
attributes参数可设为：
| 常量 | 值 | 说明 |
|---|---|---|
| vbNormal | 0 | （默认）指定没有属性的文件。 |
| vbReadOnly | 1 | 指定只读文件以及不带属性的文件。 |
| vbHidden | 2 | 指定隐藏文件以及不带属性的文件。 |
| vbSystem | 4 | 指定系统文件以及不带属性的文件。 在 Macintosh 上不可用。 |
| vbVolume | 8 | 指定卷标；如果指定任何其他属性，则忽略 vbVolume。 在 Macintosh 上不可用。 |
| vbDirectory | 16 | 指定目录或文件夹以及不带属性的文件。 |
| vbAlias | 64 | 指定文件名为别名。 仅在 Macintosh 上可用。 |
二、语法举例说明
1、历遍当前目录下的docx文件
Sub 例1()
Dim fname As String
fname = Dir("d:\*.docx")
Do Until Len(fname) = 0
MsgBox fname
fname = Dir '找下一个满足条件的文件
Loop
End Sub
2、检查是否存在某个文件夹
Sub 例2()
Dim dname As String
dname = Dir("d:\TargetDirectory", vbDirectory)
If Len(dname) = 0 Then
MsgBox "有TargetDirectory文件夾"
Else
MsgBox "無TargetDirectory文件夾"
End If
End Sub
