最近在项目中有用到写Log 的功能.用VB.Net写的.如下: Code 1 Public Sub WriteLog()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.NewLine1112 Dim strDate As String13 strDate = System.DateTime.Now.ToString("yyyyMMdd")14 Dim strFile As String15 strFile = varAppPath + "\" + strDate + ".log"16 Dim SW As System.IO.StreamWriter17 SW = New System.IO.StreamWriter(strFile, True)1819 SW.WriteLine(Msg)20 SW.Flush()21 SW.Close()2223 End Sub 转载于:https://www.cnblogs.com/andycai/archive/2009/05/04/1448547.html