Sub exist_or_not_1(Filename,exists)
'絶対パス+ファイル名で検索する場合
    Dim pth As String
    pth = Filename   '<ファイル名を指定
    If CreateObject("Scripting.FileSystemObject").FileExists(pth) = True Then
        exists=true
    Else
        exists=false
    End If
End Sub 


Sub exist_or_not_2(Filename,exists)
'ブックと同じフォルダのファイルを探す場合
    Dim pth As String
    pth = ThisWorkbook.Path & "\" & Filename   '<ファイル名を指定
    If CreateObject("Scripting.FileSystemObject").FileExists(pth) = True Then
        exists=true
    Else
        exists=false
    End If
End Sub