程序常用日志文件写入函数

‘以日期为文件名创建文件，不存在则创建，存在则追加内容，一天一个日志文件

Module LogMK
    '写日志函数
    Public Sub WriteLog(ByVal Msg As String) 'msg为内容，varAppPath文件夹路径
        Dim varAppPath As String = Application.StartupPath & "\日志"
        System.IO.Directory.CreateDirectory(varAppPath)
        Dim head As String = System.DateTime.Now.Hour.ToString() + ":" + System.DateTime.Now.Minute.ToString()
        head = head + ":" + System.DateTime.Now.Second.ToString() + ":" + System.DateTime.Now.Millisecond.ToString()
        Msg = head + System.Environment.NewLine + Msg + System.Environment.NewLine + "====================================" '+ System.Environment.NewLine
        Dim strDate As String = System.DateTime.Now.ToString("yyyyMMdd") '全天的内容保存在一个文件中
        'Dim strTime As String = System.DateTime.Now.ToString("HHmmss")
        Dim strFile As String '文件名字包括路径
        strFile = varAppPath + "\" + strDate + ".log"
        Dim SW As System.IO.StreamWriter
        SW = New System.IO.StreamWriter(strFile, True)
        SW.WriteLine(Msg)
        SW.Flush()
        SW.Close()
    End Sub
End Module