Dim strPath As String = TextBox1.Text If System.IO.File.Exists(strPath) Then MessageBox.Show("ファイルが存在します") Else MessageBox.Show("ファイルが存在しません") End If