Flush data to StreamWriter
Imports System Imports System.IO 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