Mega Code Archive

 

Categories / VB.Net Tutorial / Stream File

 

Use Finally clause to close a stream

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