Mega Code Archive

 

Categories / VB.Net / File Directory

 

Open text file to read

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("line")         sw.WriteLine("another line")         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