Create new Output with a given filename and file path

'Begin Description 
'This script saves the current Designated Output window, closes it and Open a new one
'The path and filename are specified at the beginning of the script
'rlevesque@videotron.ca 2001/09/09
'End Description

Option Explicit 

Sub Main 
Dim objOutputDoc As ISpssOutputDoc 
Dim strParam As String 
Dim strPath As String
Dim strFileName As String

Set objOutputDoc=objSpssApp.NewOutputDoc

' ******** Change the next 2 lines as required
strPath 	= "c:\\temp\\"
strFileName = "FileName.spo"

'Give path and file name to output document
objOutputDoc.SaveAs( strPath & strFileName)
'objSpssApp.OpenOutputDoc (strPath & strFileName)
'objOutputDoc.Close
'Set objOutputDoc=objSpssApp.GetDesignatedOutputDoc
'objOutputDoc.Visible=True
Set objOutputDoc=Nothing
End Sub