为什么连续用DIR查找A盘会出错,A盘里没有软盘
Private Sub Command1_Click()
On Error GoTo ErrVS1
If Dir("a:\*.txt") <> "" Then
End If
ErrVS1:
On Error GoTo ErrVS2
If Dir("a:\*.txt") <> "" Then
End If
ErrVS2:
End Sub
...全文
27616打赏收藏
DIR的用法
怎么查找某个盘里后缀名为TXT的文件是否存在,可能会存在子目录里 为什么连续用DIR查找A盘会出错,A盘里没有软盘 Private Sub Command1_Click() On Error GoTo ErrVS1 If Dir("a:\*.txt") "" Then End If ErrVS1: On Error GoTo ErrVS2 If Dir("a:\*.txt") "" Then End If ErrVS2: End Sub
' 显示 C:\ 目录下的名称。
MyPath = "c:\" ' 指定路径。
MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While MyName <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName <> "." And MyName <> ".." Then
' 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' 如果它是一个目录,将其名称显示出来。
End If
End If
MyName = Dir ' 查找下一个目录。
Loop