VBScript D&DでPPTファイルをスライドショー

VBScriptファイルにPowerPointファイルをドラッグ&ドロップするとスライドショーが開始されるスクリプト。

Set objArgs = WScript.Arguments
If objArgs.Count = 0 then
WScript.Quit
End If

Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True

Dim targetFile : targetFile = WScript.Arguments(0)
set objFso = CreateObject("Scripting.FileSystemObject")

name = objFso.GetBaseName(targetFile)           ' ファイル名（拡張子なし）を取得'
path = objFso.GetParentFolderName(targetFile)   ' ファイルが格納されているフォルダのパスを取得'

pptApp.Presentations.Open targetFile
pptApp.ActivePresentation.SlideShowSettings.Run

Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")

objWshShell.AppActivate "PowerPoint"

ついでにファイル名とパスを取得。