応用すればランチャーにもなったりするかもしれません。


' mkTable 起動マクロ
' sakura.exe と同じフォルダに下記EXEを配置
' http://www.vector.co.jp/soft/winnt/writing/se324403.html

Call Main()

Sub Main()
Dim pathSakura

pathSakura = getExePath()
Set WshShell = CreateObject("WScript.Shell")
if Len(pathSakura) > 0 then WshShell.Run( pathSakura & "mkTable.exe")

End Sub

Function getExePath()
Dim sakuraPath, pos, sRet
sRet = ""
sakuraPath = ExpandParameter("$S")
pos = instrrev(sakuraPath, "\")
if pos > 0 then sRet = Mid(sakuraPath, 1, pos )
getExePath = sRet
End Function