Writing log using a VB macro

Wed, 04 Jan 2012 12:34:32 GMT

I'm trying to use a VB macro inside the QV loading script in order to write an activity log, but I'm not having luck.

First, this is the code included in the macro section:

Dim objFSO
Dim logFile
Function openOutputFile(filename)
Rem *** Create and open an output file
    CONST ForWriting = 2
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set openOutputFile = objFSO.OpenTextFile(filename, ForWriting, True)
End Function
CONST LOGFILE_NAME = "D:\tmp\test1.log"
Function WriteLog(message)
    logFile = openOutputFile(LOGFILE_NAME)
    logFile.WriteLine(message)
    logFile.Close
End Function

and inside the QV script, (i.e. in Main tab) the WriteLog function is invoked:

LET x = WriteLog("test");

The file is being created, but it is empty.

Could you please provide some advice

Thanks in advance!

Regards,

Jesús

Re: Writing log using a VB macro

Miguel_Angel_Baeyens — Wed, 04 Jan 2012 13:06:12 GMT

Hi Jesús,

Just change this line

logFile = openOutputFile(LOGFILE_NAME)

to this line

Set logFile = openOutputFile(LOGFILE_NAME)

That should work.

Miguel

topic Re: Writing log using a VB macro in QlikView

Writing log using a VB macro

Re: Writing log using a VB macro