Mega Code Archive

 
Categories / VB.Net Tutorial / Stream File
 

Read text file content in Try Catch block

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.")         End Try    End Sub End class asdf