VBSで作業ディレクトリを指定してプログラムを実行

Option Explicit
Dim wShell
Set wShell = CreateObject("WScript.Shell")
wShell.CurrentDirectory = "c:\Program Files\example"
' 実行プログラムの指定はダブルクォーテーションでくくる
wShell.Run """c:\Program Files\example\program.exe""",1,TRUE