Log file with StreamWriter and StreamReader : StreamWriter « Stream File « VB.Net Tutorial

1. VB.Net Tutorial
2. Stream File
3. StreamWriter

Option Explicit On 
Option Strict On

Imports System
Imports System.IO
Imports Microsoft.VisualBasic

Class DirAppend
    Public Shared Sub Main()
        Using w As StreamWriter = File.AppendText("log.txt")
            
            w.Write(ControlChars.CrLf & "Log Entry : ")
            w.WriteLine("{0} {1}", DateTime.Now.ToLongTimeString(), DateTime.Now.ToLongDateString())
            w.WriteLine("  :")
            w.WriteLine("  :{0}", "logMessage")
            w.Flush()
            
            w.Close()
        End Using
        Using r As StreamReader = File.OpenText("log.txt")
            Dim line As String
            line = r.ReadLine()
            While Not line Is Nothing
                Console.WriteLine(line)
                line = r.ReadLine()
            End While
            r.Close()
            
        End Using
    End Sub
End Class