Trying to test if a file exists with no luck

[jnrussell]

I'm trying to test if a file exists, then display a message if it doesn't. The code I'm entering does not work at all. What am I doing wrong?



Dim MyPath As String
MyPath = CurDir()

Dim strfilename As String
strfilename = MyPath & "\Instructions%20for%20CAFP%20Inventory%20Program. doc"

If strfilename = "" Then
MsgBox "File does not exist"

End If

[orange]

Check the FileSystemObject

It has a method -- here's a typical usage

........
' Check to make sure the file exists...
If fso.FileExists(BodyFile$) = False Then
MsgBox "The body file isn’t where you say it is. " & vbNewLine & vbNewLine & _
"Quitting...", vbCritical, "I Ain’t Got No-Body!"
..........

[June7]

Another method that doesn't require declaring fso object variable:

If Dir("path\filename") = "" Then MsgBox "your message"

[jnrussell]

That last one worked! I was hoping for something simple like that. Thank you!