Wednesday, October 24, 2012

How to Log Error to File in VBScript

 I am an OO developer, but sometime i need to lend a hand to help out the development in VBScript or VB.

Though VBScript is an aging language for me. I still need to pick it up and use it in the
development.

the Error Logger will give you great help in the development and production since the user will come up to you and say the application is not working or not properly working. you will first go to the error log folder and check if anything had been logged to the file.

the following a very simple one that i created in VB to allow user log the error when it is
being raised in the function.


// the constant for read write, append properties for file Open
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

//function to handle logging the error to file. the parameter FunctionName is the source
// causing the issue. the second paramenter Error is like Exception in C# stored all the information
//related to the error.

function LogErrorToFile(FunctionName,Error)
   Dim fso, tf,logFilePath
   logFilePath="C:\ErrorLogFolder\MyErrorFileName"& FormattedCurrentDate&".Log"
   Set fso = CreateObject("Scripting.FileSystemObject")
    if fso.FileExists(logFilePath) Then
        Set tf = fso.OpenTextFile(logFilePath, ForAppending, TRUE)
   else
        Set tf = fso.CreateTextFile(logFilePath, True)
   end if
   tf.WriteLine("************************************************" & Now() & "********************************************************")
   tf.WriteLine("Function: " & FunctionName )
   tf.WriteLine("Error Numnber: " & CStr(Err.Number))
   tf.WriteLine("Source: " & Err.Source)
   tf.WriteLine("Detail Error Message:" & Err.Description)
   tf.WriteLine("****************************************************************************************************************************") 
   tf.WriteBlankLines(1)
   tf.Close
   Set fso =nothing
End function

//helper function to format to the current date to
//yyyy_MM_dd
Function FormattedCurrentDate
  currentDate = CDate(Date)
  currentDay = DatePart("d", currentDate )
  currentMonth = DatePart("m", currentDate )
  currentYear = DatePart("yyyy", currentDate )
  If currentDay < 10 Then
    currentDay = "0" & currentDay
  End If
  If currentMonth < 10 Then
    currentMonth = "0" & currentMonth
  End If
  FormattedCurrentDate= currentYear & "_" & currentMonth onth & "_" & currentDay
End Function

the example to see you how to use the Error Logger inside the function


function MyFunction
          on Error Resume Next
          // your logic here
          if Err.Number <> 0 then 
           LogErrorToFile "MyFunction",Err
       end if

end function

No comments:

Post a Comment