I've written a macro to export a hotfile to a specified path, however the export doesn't produce anything anywhere. However, if I leave off the path and leave just the name, the hotfile is produced in the winnt\system32 directory. See the code below. If anyone has any advise please let me know. Thanks!!!
Option Explicit
Dim objImpApp as object
Dim objImpRep as object
Sub Main()
on error goto ErrHandler
Set objImpApp = createobject("CognosImpromptu.Application"
objImpApp.OpenCatalog "e:\reporting\ccs catalog\gap and intv diag - qa.cat", "creator"
objImpApp.Visible True
Set objImpRep = objImpApp.OpenReport("e:\reporting\gaps and interventions\imrs\g&ibydxpt1-ccreports.imr"
objImpRep.RetrieveAll
objImpRep.ExportHotFile "e:\reporting\hotfiles\testscript.ims"
objImpRep.ExportHotFile "testscript.ims"
objImpRep.CloseReport
objImpApp.Quit
set objImpRep = Nothing
set objImpApp = Nothing
msgbox "completed"
Exit Sub
ErrHandler:
msgbox "ERROR: " & Err & ": " & Error$
End Sub
Option Explicit
Dim objImpApp as object
Dim objImpRep as object
Sub Main()
on error goto ErrHandler
Set objImpApp = createobject("CognosImpromptu.Application"
objImpApp.OpenCatalog "e:\reporting\ccs catalog\gap and intv diag - qa.cat", "creator"
objImpApp.Visible True
Set objImpRep = objImpApp.OpenReport("e:\reporting\gaps and interventions\imrs\g&ibydxpt1-ccreports.imr"
objImpRep.RetrieveAll
objImpRep.ExportHotFile "e:\reporting\hotfiles\testscript.ims"
objImpRep.ExportHotFile "testscript.ims"
objImpRep.CloseReport
objImpApp.Quit
set objImpRep = Nothing
set objImpApp = Nothing
msgbox "completed"
Exit Sub
ErrHandler:
msgbox "ERROR: " & Err & ": " & Error$
End Sub