LIRE ET ECRIRE UN FICHIR .LOG (CLASS)

Imports System.IO
'UTILISATION:
' -Lire:    TextBox1.Text=Log.Lire
' -Ecrire:  Log.Ecrire(TextBox1.Text)

Public Class Log
    'Pour écrire
    Public Shared Function Ecrire(ByVal texte As String)

        Dim LogStream As New StreamWriter(Application.StartupPath.ToString() & "\" & "AppLog.log", True, System.Text.Encoding.UTF8)

        Try
            LogStream.WriteLine(Now() & " -> " & texte) 'Ajoute la date et l'heure
        Catch ex As Exception
            MsgBox("ERREUR D'écriture du fichier " & Chr(10) & Chr(13) & ex.Message)
            Exit Try
        Finally
            LogStream.Close()
        End Try

    End Function
    'Pour Lire
    Public Shared Function Lire()
        Dim LogStream As StreamReader

        Try
            LogStream = New System.IO.StreamReader(Application.StartupPath.ToString & "\" & "AppLog.log")
            Return LogStream.ReadToEnd()
        Catch ex As Exception
            MsgBox("ERREUR d'ouverture du fichier " & Chr(10) & Chr(13) & ex.Message)
            Exit Try
        Finally
            If Not LogStream Is Nothing Then LogStream.Close()
        End Try

    End Function
End Class