Set objDict = server.CreateObject("Scripting.Dictionary") objDict.CompareMode = 1
CreateKeywords
Set objFSO = server.CreateObject("Scripting.FileSystemObject") End Sub
Private Sub Class_Terminate() Set objDict = Nothing Set objFSO = Nothing End Sub
Public Property Let CodeColor(inColor) m_CodeColor = "<font color=" & inColor & "><Strong>" End Property Private Property Get CodeColor() CodeColor = m_CodeColor End Property
Public Property Let CommentColor(inColor) m_CommentColor = "<font color=" & inColor & ">" End Property Private Property Get CommentColor() CommentColor = m_CommentColor End Property
Public Property Let StringColor(inColor) m_StringColor = "<font color=" & inColor & ">" End Property Private Property Get StringColor() StringColor = m_StringColor End Property
Public Property Let TabSpaces(inSpaces) m_TabSpaces = inSpaces End Property Private Property Get TabSpaces() TabSpaces = m_TabSpaces End Property
Public Property Let TableBGColor(inColor) m_TableBGColor = inColor End Property
Private Property Get TableBGColor() TableBGColor = m_TableBGColor End Property
Public Property Get ProcessingTime() ProcessingTime = Second(m_EndTime - m_StartTime) End Property
Public Property Get LineCount() LineCount = m_LineCount End Property
Public Property Get PathToFile() PathToFile = m_strPathToFile End Property Public Property Let PathToFile(inPath) m_strPathToFile = inPath End Property
