Imports System
Imports System.IO
Class TestLogFile
Public Shared Sub Main ()
Dim sw As StreamWriter
Try
' Open for appending
sw = File.AppendText("prog.log")
sw.WriteLine(DateTime.Now.ToLongDateString())
Finally
sw.Close()
End Try
End Sub
End Class