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
|