Mega Code Archive

 
Categories / VB.Net Tutorial / GUI
 

Prevent dialog box from validating file

Imports System.IO Imports System.Windows.Forms Module Module1     Sub Main()         Dim FileDB As New OpenFileDialog()         FileDB.Filter = "All files | *.* | Text files | *.txt"         FileDB.FilterIndex = 2         FileDB.InitialDirectory = "C:\Temp"         FileDB.AddExtension = True         FileDB.DefaultExt = "txt"         ' Prevent dialog box from validating file         FileDB.CheckFileExists = False         FileDB.CheckPathExists = False         If (FileDB.ShowDialog() = DialogResult.OK) Then             Dim SourceFile As StreamReader             Try                 SourceFile = New StreamReader(FileDB.FileName)                 Console.WriteLine(SourceFile.ReadToEnd())                 SourceFile.Close()             Catch Except As Exception                 Console.WriteLine("Error: " & Except.Message)             End Try         Else             Console.WriteLine("User selected Cancel")         End If     End Sub End Module