[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1061
  • Last Modified:

VB Script to launch powerpoint presentation

I ceated the follwing scrip to launch a powerpoint presentation for our marketing display workstations on startup by placing this script file into the startup group.  The problem is that the file name migh change so i was thinking of using the follwoing line for line 3 of the code Set Pres = PPT.Presentations.Open("C:\Test\*.ppt") but this fails.  Is there a way to run this sayingopen only the ppt presentation in the specifed folder.  We will only have one presentation in the folder at a time.
Set PPT = CreateObject("PowerPoint.Application")
PPT.Visible=True
Set Pres = PPT.Presentations.Open("C:\Test\Test.ppt")

Open in new window

0
georgedschneider
Asked:
georgedschneider
2 Solutions
 
jwarnkenCommented:
This will work as long as there is only one ppt file in the folder
Dim fso, presFiles
presFolder = "C:\Test"
Set fso = CreateObject("Scripting.FileSystemObject")
Set presFiles = fso.GetFolder(presFolder)
For Each f In presFiles.Files 
	If Right(LCase(f.Name),3) = "ppt"Then presFile = f.Path
Next 
WScript.Echo presFile

Open in new window

0
 
georgedschneiderAuthor Commented:
I added your script wiht the one i had previosuly to create the script below making it a little bit more dynamic by reading all fiels fin a folder for the one powerpoint presentation that needs to run.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set PPT = CreateObject("PowerPoint.Application")
objStartFolder = "C:\Test"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
	If objfile.type = "Microsoft PowerPoint Presentation" then
	PPT.Visible=True
	Set Pres = PPT.Presentations.Open("C:\Test\Test.ppt")
	End If	
Next

Open in new window

0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now