I want to open 2 PowerPoint slideshows at the same time, but I need for each to appear on different monitors. Here is the code I used:

Code:
Dim objFSO
Dim MyFile
Dim MyFolder
Dim objShell
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set MyFolder = objFSO.GetFolder("C:\LCARS")
Set objShell = WScript.CreateObject("WScript.Shell")
For Each MyFile In MyFolder.Files
    If Right(MyFile.Path,5) = ".ppsx" Then
        objShell.Run(MyFile.Path)
    End If
Next
Each of my slideshows are setup to play on its own monitor, but the code starts them both on the same. Do you know of a way to run PowerPoint slideshows on different monitors at the same time?

Thanks,
rcurrell

Last edited by shabbir; 31Aug2012 at 09:16.. Reason: Code blocks