Solved

VB Script to launch powerpoint presentation

Posted on 2009-04-02
2
1,052 Views
Last Modified: 2012-08-13
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
Comment
Question by:georgedschneider
2 Comments
 
LVL 8

Assisted Solution

by:jwarnken
jwarnken earned 250 total points
ID: 24050427
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
 

Accepted Solution

by:
georgedschneider earned 0 total points
ID: 24054903
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Messed up my code 6 34
Index Match Vlook up for a master file 7 61
Recursive folder search vbscript 7 40
Protecting vb6 & .Net code Obfuscation 18 97
Script to copy or move mouse-selected collection of files plus targets referenced by shortcuts (.lnk) The purpose of this article is to help illuminate the real challenges and options available (where they may exist) for utilizing simple scriptin…
Deploying a Microsoft Access application in a Citrix environment is not difficult but takes a few steps. However, Citrix system people are often of little help, as they typically know next to nothing about Access. The script provided here will take …
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
Internet Business Fax to Email Made Easy - With  eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, f…

862 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

25 Experts available now in Live!

Get 1:1 Help Now