Fast UNC check

[FuzMic]

Hi gurus

I want to check if an UNC exist using Scripting.FileSystemObject .GetFolder("\\MYUNCPATH\MYFLD")

If it does not exist it will flag error 76. In some pc, the response is fast but in some it may take up to 2 minutes before err is flagged.

Is there another faster way yet easy. Hopefully.

 

[MarkK]

You can ping the server first to see if it exists, with code like...

Function Ping(ServerName As String) As Boolean
On Error GoTo handler
    Dim objPing As Object
    Dim objStatus As Object
       
    Set objPing = _
        GetObject("winmgmts:{impersonationLevel=impersonate}"). _
        ExecQuery("Select * from Win32_PingStatus Where Address = '" & ServerName & "'")
       
    For Each objStatus In objPing
        Select Case objStatus.StatusCode
            Case 0
                Ping = True
            Case 11001 To 11050
                Ping = False
            Case Else
                Ping = False
        End Select
    Next
    Exit Function
handler:
    Ping = False
End Function

This takes about 4 seconds on my machine if I try to ping a machine that doesn't exist on the network.
Mark

 

[arnelgp]

maybe just check if it exists, instead of creating an object
out of it.

Public Function FolderExists(FolderName As String) As Boolean
    Dim objFSO As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    FolderExists = objFSO.FolderExists(FolderName)
    Set objFSO = Nothing
End Function

 

[FuzMic]

Mark Thanks for the pinging advice & arnelgp Thanks too, i will the folderexists instead of getfolder & see how the speed pans out.

 

[FuzMic]

Guys sorry to report using Folder.exist still slow on on particular win8.1 laptop. It might be just a bug in the OS due to whatever reason.
Ping does work at all.

 

[moke123]

Guys sorry to report using Folder.exist still slow on on particular win8.1 laptop.

Wired or Wireless?

 

[FuzMic]

Wired or Wireless?

It was a stand alone pc no networking moke, no issue on another similar pc no network win 10

Sent from my MI 4LTE using Tapatalk