Open and Append to a Log File : Text File Write « File Directory « VB.Net






Open and Append to a Log File

 

Imports System
Imports System.IO

Class DirAppend
    Public Shared Sub Main()
        Using w As StreamWriter = File.AppendText("log.txt")
            Log("Test1", w)
            w.Close()
        End Using
        Using r As StreamReader = File.OpenText("log.txt")
            DumpLog(r)
        End Using
    End Sub

    Public Shared Sub Log(logMessage As String, w As TextWriter)
        w.WriteLine(logMessage)
        w.Flush()
    End Sub
    Public Shared Sub DumpLog(r As StreamReader)
        Dim line As String
        line = r.ReadLine()
        While Not (line Is Nothing)
            Console.WriteLine(line)
            line = r.ReadLine()
        End While
        r.Close()
    End Sub
End Class

   
  








Related examples in the same category

1.Create Text FileCreate Text File
2.Append String to a Text file
3.Text file Reader and WriterText file Reader and Writer
4.Reading and Writing to Files
5.Write Text to a File
6.Write Text to a File
7.Write text line by line
8.Write Text to a File and read back
9.Write UTF8 encoded string to a file
10.Create Text file and append string to it
11.Convert byte from a file to UTF8
12.Save character to a file
13.Save string to a file