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

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

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 SubEnd Module