Use Finally clause to close a stream : StreamReader « Stream File « VB.Net Tutorial






  1. VB.Net Tutorial
  2. Stream File
  3. StreamReader
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"

        If (FileDB.ShowDialog() = DialogResult.OK) Then
            Dim SourceFile As StreamReader

            SourceFile = New StreamReader(FileDB.FileName)

            If (Not SourceFile Is Nothing) Then
                Try
                    Console.WriteLine(SourceFile.ReadToEnd())
                Catch Except As Exception
                    Console.WriteLine("Error: " & Except.Message)
                Finally
                    Console.WriteLine("In finally statements")
                    SourceFile.Close()
                End Try
            End If
        Else
            Console.WriteLine("User selected Cancel")
        End If
    End Sub
End Module








13.18.StreamReader
13.18.1.Create StreamReader from FileStream
13.18.2.Read text file to the end
13.18.3.Read all text in a text file by using StreamReader
13.18.4.Read text file to a char array
13.18.5.StreamReader: read to a buffer
13.18.6.StreamReader: Peek
13.18.7.Check Exception in file reading
13.18.8.Use Finally clause to close a stream