VB.NET怎么写Log方法

小编给大家分享一下VB.NET怎么写Log方法，相信大部分人都还不怎么了解，因此分享这篇文章给大家参考一下，希望大家阅读完这篇文章后大有收获，下面让我们一起去了解一下吧！

最近在项目中有用到VB.NET写Log方法的功能.具体代码如下:

Code

1. Public Sub WriteLog()Sub 
   WriteLog(ByVal Msg As String)  

2. Dim varAppPath As String  

3. varAppPath = System.AppDomain.
   CurrentDomain.SetupInformation.
   ApplicationBase + "log"  

4. System.IO.Directory.CreateDirectory
   (varAppPath)  

5. Dim head As String  

6. head = System.DateTime.Now.Hour.
   ToString() + ":" + System.DateTime.
   Now.Minute.ToString()  

7. headhead = head + ":" + System.DateTime.
   Now.Second.ToString() + ":" + 
   System.DateTime.Now.Millisecond.ToString()  

8. Msg = head + System.Environment.
   NewLine + Msg + System.Environment.NewLine  

9. Dim strDate As String  

10. strDate = System.DateTime.Now.
    ToString("yyyyMMdd")  

11. Dim strFile As String  

12. strFile = varAppPath + "\" + 
    strDate + ".log"  

13. Dim SW As System.IO.StreamWriter  

14. SW = New System.IO.StreamWriter
    (strFile, True)  

15. SW.WriteLine(Msg)  

16. SW.Flush()  

17. SW.Close()  

18. End Sub 

以上是“VB.NET怎么写Log方法”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注亿速云行业资讯频道！