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