-1

这会做什么?

If Dir(path) = " " Then  
    path = " "
4

1 回答 1

2

引号之间有不必要的空格

代码基本上试图做的是检查相关文件、目录或文件夹是否存在。请参阅此示例,该示例检查文件是否存在。

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 这里

于 2013-02-14T07:08:21.930 回答