显示下一条 | 关闭 温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！立即重新绑定新浪微博》 | 关闭 VB.net

Dim varAppPath As String
varAppPath = System.AppDomain.CurrentDomain.SetupInformation.ApplicationBase + "log"
System.IO.Directory.CreateDirectory(varAppPath)
Dim head As String
head = 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
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()
本文由外刊IT评论网(www.aqee.net)原创发表，文章地址：软件开发是瓜熟蒂落，不能强迫，[英文原文：It ships when it ships ]