VB.Net 中写Log 的方法

最近在项目中有用到写Log 的功能.用VB.Net写的.如下:

 

   

 1    Public Sub WriteLog(ByVal Msg As String)
 2
 3        Dim varAppPath As String
 4        varAppPath = System.AppDomain.CurrentDomain.SetupInformation.ApplicationBase + "log"
 5        System.IO.Directory.CreateDirectory(varAppPath)
 6
 7        Dim head As String
 8        head = System.DateTime.Now.Hour.ToString() + ":" + System.DateTime.Now.Minute.ToString()
 9        head = head + ":" + System.DateTime.Now.Second.ToString() + ":" + System.DateTime.Now.Millisecond.ToString()
        Msg = head + System.Environment.NewLine + Msg + System.Environment.NewLine

        Dim strDate As String
        strDate = System.DateTime.Now.ToString("yyyyMMdd")
        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