VB.Net Tutorial/Stream File/File Exception

Материал из VB Эксперт
Версия от 12:56, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Catch file related exceptions: DirectoryNotFoundException, FileNotFoundException

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