Check connectivity to network drive

[Suthee]

I have another probably simple question.

I need to check to see if a connection to a network drive exsists before I
execute some code. If the drive does not exsist, I need to terminate the
proceedure, with a simple msgbox.

Is there a way to do this?

My network drive is \\jupiter\output


Any ideas?

Thanks.

 

[pietlinden]

Check out the stuff at VBNet. Randy Birch has a serious collection of
stuff there...

http://vbnet.mvps.org/code/network/isnetworkalive.htm

 

[Dirk Goldgar]

I have another probably simple question.

I need to check to see if a connection to a network drive exsists
before I execute some code. If the drive does not exsist, I need to
terminate the proceedure, with a simple msgbox.

Is there a way to do this?

My network drive is \\jupiter\output


Any ideas?

You could use the Dir() function to read the directory and see if an
error is raised:

Dim strDummy As String

On Error Resume Next
strDummy = Dir(\\jupiter\output)
If Err.Number <> 0 Then
' The directory isn't accessible
' The error number will probably be 52.
End If

Note: in the above code, the directory name literal string should be
enclosed in quotes, but when I wrote this message, Outlook Express
"helpfully" removed them to make it a hyperlink.