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()
10        Msg = head + System.Environment.NewLine + Msg + System.Environment.NewLine
11
12        Dim strDate As String
13        strDate = System.DateTime.Now.ToString("yyyyMMdd")
14        Dim strFile As String
15        strFile = varAppPath + "\" + strDate + ".log"
16        Dim SW As System.IO.StreamWriter
17        SW = New System.IO.StreamWriter(strFile, True)
18
19        SW.WriteLine(Msg)
20        SW.Flush()
21        SW.Close()
22
23    End Sub