VB.Net Tutorial/Stream File/File Exception
<source lang="vbnet">Imports System.IO Imports System.Windows.Forms public class ColorDialogWithCustomColorSettings
public Shared 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" 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 DirectoryNotFoundException Console.WriteLine("Error: " & Except.Message) Catch Except As FileNotFoundException Console.WriteLine("Error: " & Except.Message) Catch Except As Exception Console.WriteLine("Error: " & Except.Message) End Try Else Console.WriteLine("User selected Cancel") End If End Sub
End class</source>