Printing to a log

[dravilis]

I need to print a message to the log. Have tried write, print, msgbox. I don't want it coming up as a pop up. Want it to print to the log. Thanks in advance.

[Ankesh]

Using print will not give any pop up. It will send the message to print log.

[pradeep singh]

You can minimize it through coding and also later export its result to text file.

[vinod123]

Use Reporter Statement if you want to see in log

Reporter.ReportEvent 0, "Object Name", "write the message which you want to see in the result"

0 for micpass
1 for micwarning
2 for micfail

[dravilis]

Thanks Pradeep. That worked well.

[elango87]

Below is the code for creating the log file,
It will update the date and time followed by the message. Later it can be used for analysis.

'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<Function to write a log file>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'This function is used to create logs
'The log file will be stored with filename as "Logfile.log" by default
'If the log file is present in the path specified, it will be updated else it will be created.
'StrTitle -> Used to give the Title for the log. Eg: Test
'StrMessage -> The message which needs to be sent
Usage: Writetolog("Test", "This is a test")
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Code:

Function Writetolog(StrTitle, StrMessage)
Dim objFS, Logfilepath, ObjFile
Set objFS = CreateObject("Scripting.FileSystemObject")
Logfilepath = Pathofthefolderwherelogfileshouldbestored & "Logfile.log" 'Enter the log file path here
If objFS.FileExists(Logfilepath) Then
        Set objFile = objFS.OpenTextFile(Logfilepath,8,False)
    Else
        objFS.CreateTextFile Logfilepath,True
        Set objFile = objFS.OpenTextFile(Logfilepath,8,False)
End If

objFile.Write "[" & Date &"]" & "[" & Time & "][" & StrTitle &"][" & StrMessage & "]" &vbcrlf

objFile.Close
Set objFile = Nothing
Set objFS = Nothing
End Function

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Hope this helps.

Let me know in case of any questions.

Thanks,
Elango