Visual Basic > Applications VBA sample source codes

Visual Basic Code > use logging in your applications

use logging in your applications

'if you want logging then set VB4 menu
'Tools/Project/Advanced/CommandLine Arguments = /D


Public sub WriteLogFile(szData as String)

    '-- File handle for the log file (if used)
    Static nLogFileNum as Integer
    
    on Error Resume Next
    
    If InStr(UCase$(Command$), "/D") Then
        '-- Is the file not open yet?
        If nLogFileNum = 0 Then
            '-- open it
            nLogFileNum = FreeFile
            open App.Path & "\" & App.EXEName & ".LOG" For Binary Shared as nLogFileNum
            Seek #nLogFileNum, LOF(nLogFileNum) + 1
        end If
    
        '-- Write the string
        szData = Str$(Now) & Chr$(9) & szData & vbCrLf
        put #nLogFileNum, , szData
        
    end If
    
End Sub


Return