Text File Debugging

'-------------------------------------------------------------------------------

' START OF CUSTOM CODE DEBUG HEADER

'-------------------------------------------------------------------------------

Function TimeStamp

TimeStamp = FormatDateTime(Date(),0) + ' ' + FormatDateTime(Time(),3)

End Function

bDebugMode = TRUE

bAppend = False

sCustomRuleName = 'DEBUG-'

sCustomRuleName = Replace(sCustomRuleName, ' ', '')

sTriggerAction = 'UserTimeCalibration'

sTriggerAction = Replace(sTriggerAction, ' ', '')

sDebugFile = sCustomRuleName + sTriggerAction + '.txt'

sDebugPath = 'C:\IndySoft\EventDebugger'

adTypeText = 2

adSaveCreateOverWrite = 2

adWriteLine = 1

adCRLF = -1

adReadAll = -1

Debug = CreateObject('ADODB.Stream')

Debug.Type = adTypeText

Debug.LineSeparator = adCRLF

Debug.Open

If bDebugMode Then

oFileSystem = CreateObject('Scripting.FileSystemObject')

If Not oFileSystem.FolderExists(sDebugPath) Then

oFolderName = oFileSystem.CreateFolder(sDebugPath)

oFolderName = Nothing

End If

sDebugFile = sDebugPath + sDebugFile

If Not oFileSystem.FileExists(sDebugFile) Then

oFileName = oFileSystem.CreateTextFile(sDebugFile,True)

oFileName.Close

oFileName = Nothing

End If

oFileSystem = Nothing

If bAppend Then

Debug.LoadFromFile(sDebugFile)

Debug.ReadText(adReadAll)

Debug.SetEOS

End If

End if

Debug.WriteText(TimeStamp + ': Starting Debug Session for ' + sCustomRuleName + sTriggerAction,adWriteLine)

'-------------------------------------------------------------------------------

' END OF DEBUG HEADER

'-------------------------------------------------------------------------------

Try

Debug.WriteText('START: ' + sCustomRuleName + ' : ' + sTriggerAction,adWriteLine)

'***********************************************************************

' ALL OF YOUR CODE GOES BELOW

'***********************************************************************

'***********************************************************************

' END OF ALL YOUR CODE

'***********************************************************************

' ALL OF YOUR CODE ENDS HERE

Debug.WriteText('END OF CODE',adWriteLine)

Debug.WriteText('END: ' + sCustomRuleName + ' : ' + sTriggerAction,adWriteLine)

Except

Debug.WriteText('Error Thrown' & LastExceptionMessage,adWriteLine)

ShowMessage('This event did not complete correctly and is therefore invalid')

End

'-------------------------------------------------------------------------------

' START OF DEBUG FOOTER

'-------------------------------------------------------------------------------

Debug.WriteText(TimeStamp + ': Ending Debug Session for ' + sCustomRuleName + sTriggerAction,adWriteLine)

If bDebugMode Then

Debug.SaveToFile(sDebugFile, adSaveCreateOverWrite)

End If

Debug.Close

Debug = Nothing

'-------------------------------------------------------------------------------

' END OF DEBUG FOOTER

'------------------------------------------------------------------------------- |