请提供VB下写Log的官方方法

zhgc

摘自：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

复制代码