Optional usage...

Sub DoStuff()
If PathExists("\\Server\Share") Then
'//do stuff
Else
Dim sMsg As String
sMsg = "The network drive is not available." & vbCrLf
sMsg = sMsg & "Please try again later!"
MsgBox sMsg, vbExclamation
End If 'PathExists("\\Server\Share")
End Sub

..which only executes your code if the path exists AND is available.

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc