Public Class AppendTextTest Public Shared Sub Main() Dim fi As New FileInfo("temp.txt") Dim sw As StreamWriter = fi.AppendText()
sw.WriteLine("...")
sw.Flush()
sw.Close() Dim sr As New StreamReader(fi.OpenRead())
While sr.Peek() <> -1
Console.WriteLine(sr.ReadLine()) End While End Sub End Class