Dim strFolderName   ' フォルダ名
Dim strScriptName   ' スクリプト名

strScriptName = WScript.ScriptName
strFolderName = Left(WScript.ScriptFullName, _
                    InStrRev(WScript.ScriptFullName, "\"))

Dim objWshShell     ' WshShell オブジェクト
Set objWshShell = WScript.CreateObject("WScript.Shell")

Dim strPath
strPath = """" & strFolderName & "\BRAINSファイル更新CDコピー.exe" & """" & " exec"
objWshShell.Run(strPath)
