43 lines
1.7 KiB
VB.net
43 lines
1.7 KiB
VB.net
Imports System.IO
|
|
|
|
Public Class Logger
|
|
'DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss")
|
|
|
|
Dim logFileName As String = Main.localAppData & "logs\" & DateTime.Now.ToString("yyyy-MM-dd") & ".txt"
|
|
|
|
Public Sub Load()
|
|
If Not My.Computer.FileSystem.DirectoryExists(Main.localAppData & "logs") Then My.Computer.FileSystem.CreateDirectory(Main.localAppData & "logs")
|
|
If Not My.Computer.FileSystem.FileExists(logFileName) Then File.WriteAllLines(logFileName, {"--------------------------------------------------------------", "------------------- LOG FILE - " & DateTime.Now.ToString("dd/MM/yyyy") & " -------------------", "--------------------------------------------------------------", "[" & DateTime.Now.ToString("HH:mm:ss") & "][INFO] Init software"})
|
|
End Sub
|
|
|
|
Public Sub Info(str As String)
|
|
Dim objWriter As New StreamWriter(logFileName, True)
|
|
Try
|
|
objWriter.WriteLineAsync("[" & DateTime.Now.ToString("HH:mm:ss") & "][INFO] " & str)
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
End Try
|
|
objWriter.Close()
|
|
End Sub
|
|
|
|
Public Sub Warn(str As String)
|
|
Dim objWriter As New StreamWriter(logFileName, True)
|
|
Try
|
|
objWriter.WriteLineAsync("[" & DateTime.Now.ToString("HH:mm:ss") & "][WARN] " & str)
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
End Try
|
|
objWriter.Close()
|
|
End Sub
|
|
|
|
Public Sub Critical(str As String)
|
|
Dim objWriter As New StreamWriter(logFileName, True)
|
|
Try
|
|
objWriter.WriteLineAsync("[" & DateTime.Now.ToString("HH:mm:ss") & "][CRITICAL] " & str)
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString)
|
|
End Try
|
|
objWriter.Close()
|
|
End Sub
|
|
End Class
|