Mega Code Archive
StreamReader ReadToEnd reads stream from the current position to the end
Imports System
Imports System.IO
Imports System.Text
Public Class Test
Public Shared Sub Main()
Dim path As String = "c:\temp\MyTest.txt"
Try
Dim sw As StreamWriter = New StreamWriter(path)
sw.WriteLine("This")
sw.WriteLine("is ")
sw.WriteLine("a")
sw.WriteLine("test")
sw.Close()
Dim sr As StreamReader = New StreamReader(path)
Console.WriteLine(sr.ReadToEnd())
sr.Close()
Catch e As Exception
Console.WriteLine("The process failed: {0}", e.ToString())
End Try
End Sub
End Class