这会做什么?
If Dir(path) = " " Then
path = " "
引号之间有不必要的空格
代码基本上试图做的是检查相关文件、目录或文件夹是否存在。请参阅此示例,该示例检查文件是否存在。
Option Explicit
Sub Sample()
Dim sPath As String
sPath = "C:\Temp\MyFile.xls"
If Dir(sPath) = "" Then
MsgBox "File not found"
Else
MsgBox "File found"
End If
End Sub
更多关于DIR
这里