Daniele Bariletti
18 lines
596 B
VB.net
18 lines
596 B
VB.net
Imports System.IO
|
|
|
|
Module AssLogM
|
|
Public Property AssemblerFunctionLog As String = String.Empty
|
|
Public Sub InitAssLog()
|
|
AssemblerFunctionLog = Map.refMainWindowVM.MainWindowM.sDataRoot & "\Temp\" & "AssemblerLog.txt"
|
|
File.WriteAllText(AssemblerFunctionLog, String.Empty)
|
|
AssLog(Date.Now.ToString & " Avvio 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 Module
|