Add Error log to your projects - no changing code!
This is a drop in replacement for the VB Message box routine (MsgBox). It will log to a file all messages that you display to the user that are marked with vbCritical. This routine also expands the standard VB Messagebox by giving you the developer the ability to log to file, even if you don't set vbCritical.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Public Function MsgBox(Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title As String, Optional HelpFile As String, Optional Context As Single, Optional LogToFile As Boolean = False) As VbMsgBoxResult Dim strErrorLog As String Dim iFileHandle As Integer Dim strErrorTitle As String Dim iResult As Integer iFileHandle = FreeFile strErrorTitle = App.EXEName & " : " & Title strErrorLog = App.Path & "\" & App.EXEName & ".log" ' Force error loging on all critical messages If (Buttons And vbCritical) Then LogToFile = True End If ' if the user has choosen to log, or it's a critical message, log it If LogToFile = True Then Open strErrorLog For Append As #iFileHandle Print #iFileHandle, Now, Prompt Close #iFileHandle End If ' Call the real message box routine iResult = VBA.MsgBox(Prompt, Buttons, strErrorTitle, HelpFile, Context) MsgBox = iResult End Function
Original Comments (3)
Recovered from Wayback Machine