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