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

ネタ元

• https://qiita.com/tukiyo3/items/0b88ec672bf53a8c74d2