Demetrio Cassarino
29 lines
698 B
VB.net
29 lines
698 B
VB.net
Imports System.IO
|
|
|
|
Module AssLogM
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Public Property AssemblerFunctionLog As String = String.Empty
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#Region "METHODS"
|
|
|
|
Public Sub InitAssLog()
|
|
AssemblerFunctionLog = Map.refMainWindowVM.MainWindowM.sTempDir & "\" & ASSEMBLER_FILENAME
|
|
File.WriteAllText(AssemblerFunctionLog, String.Empty)
|
|
AssLog(Date.Now.ToString & ASSEMBLER)
|
|
End Sub
|
|
|
|
Public Function AssLog(sMsg As String) As Boolean
|
|
Dim AssLogWriter As StreamWriter = File.AppendText(AssemblerFunctionLog)
|
|
AssLogWriter.WriteLine(sMsg)
|
|
AssLogWriter.Close()
|
|
Return True
|
|
End Function
|
|
|
|
#End Region ' Methods
|
|
|
|
End Module
|