VB.Net Tutorial/Stream File/File Exception

Catch file related exceptions: DirectoryNotFoundException, FileNotFoundException

<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>