ファイル存在チェック

'===============================================================
'機能 ：ファイルの存在チェック
'引数 ：strPath IN 存在チェックを行うパス＋ファイル名
'戻り値：True 正常
'　　　：False　異常
'===============================================================
Private Function FindFile(ByVal strPath As String) As Boolean

Try

' ファイル存在チェック
If System.IO.File.Exists(strPath) = False Then
MessageBox.Show("ファイルが存在しません。" & vbCrLf & "(" & strPath & ")")
Return False
End If

Return True

Catch ex As Exception
MessageBox.Show(ex.ToString, Me.Text)
Return False
End Try

End Function