深圳全飞鸿

标题: 请提供VB下写Log的官方方法 [打印本页]

---

作者: zhgc    时间: 2019-5-4 16:48
标题: 请提供VB下写Log的官方方法
摘自：scada.publc

1. Public Sub WriteLog(Message As String)
   
2. Dim strNow As String
   
3. Dim strFileName As String
   
4.    
   
5.     strNow = Format(Now, "yyyy/mm/dd HH:Mm:ss")
   
6.     strFileName = Format(Now, "yyyymmdd")
   
7.    
   
8.     Message = strNow & vbTab & Message
   
9.    
   
10.     If Dir(App.Path & "\log", vbDirectory) = "" Then MkDir (App.Path & "\log")
    
11.     Open App.Path & "\log\" & strFileName & ".log" For Append As #1
    
12.     Print #1, Message
    
13.     Close #1
    
14. 
    
15. End Sub

复制代码

---

欢迎光临 深圳全飞鸿 (http://www.nagomes.com/disc/)

Powered by Discuz! X3.2