Question

我尝试使用UNC Path和FileSystemObject获取网络中的目录，但如果网络目录不可用，则响应会花费很多时间。我想这是因为扫描了很多网络，或者在这一点上发送了更多的ping。那么在使用FSO之前，有没有一种方法可以用来更快地检查网络目录的存在？

Answer 1

我添加了一个文件检查（以及从子例程调用它的示例），然后是文件夹检查。两者都以相同的方式调用，并且都使用Dir函数。我在文件检查中添加了一个错误处理程序，值得为文件夹检查器添加它：

Sub Main()
    if FileExists("O:\Filenamehere") = TRUE then
        'do stuff
    end if
End Sub

'For a file
Function FileExists(ByVal FullPath As String) As Boolean
    On Error GoTo Hand
    If Dir(FullPath) <> "" Then
        FileExists = True
    Else
        FileExists = False
    End If
    Exit Function
Hand:
    Select Case Err.Number
        Case 52
            FileExists = False
    End Select
End Function

'For a directory
Function DirectoryExists(ByVal FullPath As String) As Boolean
    If Dir(FullPath, vbDirectory) <> "" Then DirectoryExists = True Else DirectoryExists = False
End Function

VBA：使用UNC Path和FileSystemObject拒绝长响应

1 个答案: