'ファイルパスを設定 Dim Fname As String = "c:\test.Txt" 'ファイルの有無を確認 If System.IO.File.Exists(Fname) Then   MessageBox.Show("ファイルは存在します。") Else   MessageBox.Show("ファイルは存在しません。") End If