[Simples Classe Para Logger]
[HTML]Public Class Logger
Public LocalLog As String
Public Sub New(ByVal Local As String)
LocalLog = Local
End Sub
Public Sub InicioDoLog()
If (File.Exists(LocalLog)) Then
File.WriteAllText(LocalLog, "Endereço Logger By gusdnide")
End If
End Sub
Public Sub AddLog(ByVal Texto As String)
If (File.Exists(LocalLog) = True) Then
Dim Inicio As String = "[" + Date.Now.ToString + "] - "
Dim Ler As String = File.ReadAllText(LocalLog)
File.WriteAllText(LocalLog, Ler + Environment.NewLine + Inicio + Texto)
Else
File.Create(LocalLog)
AddLog(Texto)
End If
End Sub
End Class[/HTML]
Bom um simples jeito de uso é esse:
[HTML]Dim Local As String = Application.StartupPath + "\Log.txt" 'Local onde o Log Será salvo
Dim Log As New Logger(Local)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Log.AddLog("gusdnide")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Log.InicioDoLog()
End Sub[/HTML]
Saída:
[HTML]Endereço Logger By gusdnide
[25/07/2015 14:37:59] - gusdnide
[25/07/2015 14:38:00] - gusdnide
[25/07/2015 14:38:00] - gusdnide
[25/07/2015 14:38:00] - gusdnide
[25/07/2015 14:38:00] - gusdnide
[25/07/2015 14:38:01] - gusdnide
[25/07/2015 14:38:01] - gusdnide
[25/07/2015 14:38:01] - gusdnide
[25/07/2015 14:38:01] - gusdnide
[25/07/2015 14:38:01] - gusdnide
[21/06/2015 14:38:01] - gusdnide[/HTML]
Coder.UnkNóia
Coder.Gusd (Programador Gostoso)