.vbs file was working fine with MSPowerpoint 2003 now error in MSPowerpoint 2010

[Webkins]

This script was working well until we all upgraded to Powerpoint 2010. The purpose of this program is to open and combine, join or merge multiple Powerpoint presentations contained in a folder into one large Powerpoint presentation. I did not write this program, I found it on the internet a long time ago. All the presentation slides are merged when the script is run perfectly. The problem seems to be when the end of the last file is reached then the program faults. I am not sure how to fix this issue and any help is greatly appreciated. Thank you in advance. Here is the code and error below:

Const PPTMERGE_FILE = "Merged.ppt"
Const PPTMERGE_FOLDER = ".\PPTmerge"
Dim Application
Set Application=CreateObject("PowerPoint.Application")
Application.Visible = True
Dim first
first = True
Set fs=CreateObject("Scripting.FileSystemObject")
Dim folder
Set folder = fs.GetFolder(PPTMERGE_FOLDER)
Dim out
Dim ff
For Each ff in folder.Files
f = PPTMERGE_FOLDER + "\" + ff.Name
If first Then
Dim p
Set out = Application.Presentations.Open(ff)
out.SaveAs PPTMERGE_FOLDER + "\..\" + PPTMERGE_FILE
first = False
Else
out.Slides.InsertFromFile ff, out.Slides.Count
End If
Next
If Not first Then
out.Save
out.SlideShowSettings.Run
End If
Set folder = Nothing
Set out = Nothing
Set folder = Nothing
Set Application = Nothing

Here is the error that I receive:

Windows Script Host
Line: 21
Char: 1
Error: Slides.InsertFromFile : Failed.
Code: 80004005
Source: Microsoft Powerpoint 2010

 

[Webkins]

Any script experts out there or maybe suggest a different option ? Thank you

 

[Geates]

MSDN defined the function .InsertFromFile() as

Function InsertFromFile (
   [b]FileName As String[/b],
   Index As Integer,
   SlideStart As Integer, (optional)
   SlideEnd As Integer (optional)
)

The script trying to pass the ff file object to the .InsertFromFile() menthod when it requires a string. Try adding [red].path[/red] to the ff object - this will pass the path of the file.

out.Slides.InsertFromFile ff[red].path[/red], out.Slides.Count

-Geates



"I hope I can chill and see the change - stop the bleed inside and feel again. Cut the chain of lies you've been feeding my veins; I've got nothing to say to you!"
-Infected Mushroom

"I do not offer answers, only considerations."
- Geates's Disclaimer