Vb6.0 文件日志记录 

 1 Private Sub WriteLog(method As String, message As String)
 2 'Write Error LogFile
 3 
 4     Dim ifile As Long
 5     ifile = FreeFile
 6     Open "C:\Logfile" & Format(Now, "YYYYMMDD") & ".txt" For Append As #ifile
 7     Write #ifile, CStr(Now) & "---" & method & "(): " & message
 8     Close #ifile
 9      
10 End Sub
View Code


以上就是文件记录日志的代码，与C#相比而言比较简单；

posted @ 2016-01-15 16:06  Janzen  阅读(1229)  评论(0)  编辑  收藏  举报