I just turn off the error checking and check to see if I found what I wanted.

Option Explicit
Sub testme()

Dim myPath As String
Dim wBook As String
Dim testStr As String

myPath = "\\myserver\mypath\excel\"
wBook = "book1.xls"
testStr = ""
On Error Resume Next
testStr = Dir(myPath & wBook)
On Error GoTo 0

If testStr = "" Then
MsgBox "filename not found--or folder/drive not found"
End If

End Sub



Michael wrote:

I am trying to determine the presence of a file using the
DIR command as follows:

If Len(Dir(path & wbook)0 Then
'File Found
End If

However, when the path variable is not available, my
macro aborts with the error message "Path not Found".

I'd appreciate any suggestions on how I can determine the
path is not present before I get the error message.

Thanks for any suggestions.

--

Dave Peterson