VBA Error if File is not found

[ItalianPlatinum]

Hello,
Having issues on my VBA and couldn't seem to find anything on here that covers both of my issues. I got my VBA to error if no file with message (with below code) or proceed if their is a file (removing code). But i cant get it to do both. If no file stop and show me a error box and then the second proceed if their is a file. My code is MUCH LARGER before and after so if a file exists i need it to run further.

Dim FilePath As String
Dim TestStr As String

FilePath = "MY FILE PATH"

TestStr = ""
On Error Resume Next
TestStr = Dir("MY FILE PATH")

If TestStr = "" Then
MsgBox "File doesn't exist"
On Error GoTo -1
End If
Exit Sub

Thanks in advance for any help

 

[rlv01]

One way.

Sub TestFile()
    Dim FilePath As String
    Dim TestStr As String
    Dim FoundFile As Boolean

    FilePath = "MY FILE PATH"

    If FilePath <> "" Then
        TestStr = Dir$(FilePath)
        FoundFile = (TestStr <> "")
    Else
        FoundFile = False
    End If

    If FoundFile Then
        'execute code here


    Else
        MsgBox "File doesn't exist"
    End If
End Sub

 

[ItalianPlatinum]

This pretty much worked. was getting tangled on the fact it needs to be in the start of my code. Good now.Thanks