Check whether network connection is active

[Larry Haydn]

How do I check whether a network connection is active?

I could check whether a mapped network drive exists, using this:

Dim HaveDrive As Boolean
HaveDrive = False
HaveDrive = CreateObject("Scripting.FileSystemObject").DriveExists("P")
If HaveDrive Then ....

The problem is, if the network crashed, the mapped drive still "exist", even though
visually it has a big red X on the drive letter.

-------------------------------------------------------------
Why do I need this?
I am using this check to determine whether the program should attempt a connection with SQL Server.
This means that if the network is active, I will establish a connection to SQL Server and save data there.
On the other hand, if the network is inactive, then save the data locally.

 

[daverunt]

Have a look here to see if this helps
It has an IsReady property for a drive using vba fso

Drive object

Office VBA reference topic

docs.microsoft.com

Use is shown in the System.IO class for .NET example

DriveInfo Class (System.IO)

Provides access to information on a drive.

docs.microsoft.com

 

[Tupe77]

This is an old question and my solution is not elegant, but I put it here nonetheless.

Sub test_connection()

Dim x As String
Dim Server_IP_adress As String

Server_IP_adress = "8.8.8.8"
x = Trim(ShellRun("ping " & Server_IP_adress))

If InStr(x, "Reply from " & Server_IP_adress & ":") > 0 Then
Debug.Print "Server_IP_adress: " & Server_IP_adress & " respond to ping"
Debug.Print InStr(x, "Reply from " & Server_IP_adress & ":")
Else
Debug.Print "No Network"
End If
End Sub

 

[Larry Haydn]

Have a look here to see if this helps
It has an IsReady property for a drive using vba fso

Drive object

Office VBA reference topic

docs.microsoft.com

Use is shown in the System.IO class for .NET example

DriveInfo Class (System.IO)

Provides access to information on a drive.

docs.microsoft.com

Thank you daverunt!
It works!
Even though it has a 1~1.5sec delay, this is still much better that the 5~8 sec delay when trying to connect to SQL Server when the network is down.

 

[Larry Haydn]

This is an old question and my solution is not elegant, but I put it here nonetheless.

Sub test_connection()

Dim x As String
Dim Server_IP_adress As String

Server_IP_adress = "8.8.8.8"
x = Trim(ShellRun("ping " & Server_IP_adress))

If InStr(x, "Reply from " & Server_IP_adress & ":") > 0 Then
Debug.Print "Server_IP_adress: " & Server_IP_adress & " respond to ping"
Debug.Print InStr(x, "Reply from " & Server_IP_adress & ":")
Else
Debug.Print "No Network"
End If
End Sub

Thank you for the reply!
I used the IsReady method as suggested by daverunt.

 

[daverunt]

Glad it works for you. I could only test it with local drives and there's no delay but a network drive delay isn't unexpected.