mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
405 B
20 lines
405 B
Attribute VB_Name = "Logging"
|
|
Option Explicit
|
|
|
|
Private p_strLogFile As String
|
|
Private p_strTID As String
|
|
|
|
Public Sub SetLogFile()
|
|
|
|
p_strLogFile = Environ$("TEMP") & "\" & App.Title & ".log"
|
|
p_strTID = App.ThreadID
|
|
|
|
End Sub
|
|
|
|
Public Sub WriteLog( _
|
|
ByVal i_str As String _
|
|
)
|
|
FileWrite p_strLogFile, "[" & p_strTID & "] " & Date & " " & Time & " > " & _
|
|
i_str & vbCrLf, True
|
|
|
|
End Sub
|