Close Stream in Finally statement : Finally « Development « VB.Net Tutorial

1. VB.Net Tutorial
2. Development
3. Finally

Imports System.IO

public class Test
   public Shared Sub Main
        Dim srReader As IO.StreamReader
        Dim strLine As String
        Dim blnDone As Boolean = False
        Dim strFileName As String = "test.txt"

        'Read text from a file and display it in a list box.
        srReader = New IO.StreamReader(strFileName)
        Try
            While Not blnDone
                strLine = srReader.ReadLine()
                If strLine Is Nothing Then
                    blnDone = True
                Else
                    Console.WriteLine(strLine)
                End If
            End While
            srReader.Close()
        Catch ex As Exception
            Console.WriteLine("An error has occurred.")
        Finally
            srReader.Close()
        End Try



   End Sub
End class