Mega Code Archive
StreamReader Class Implements a TextReader that reads characters from a byte stream in a particular encoding
<![CDATA[
Imports System
Imports System.IO
Class Test
Public Shared Sub Main()
Try
Dim sr As StreamReader = New StreamReader("TestFile.txt")
Dim line As String
Do
line = sr.ReadLine()
Console.WriteLine(Line)
Loop Until line Is Nothing
sr.Close()
Catch E As Exception
' Let the user know what went wrong.
Console.WriteLine("The file could not be read:")
Console.WriteLine(E.Message)
End Try
End Sub
End Class
]]>