* MKTABLE起動マクロ [#me89a66d]
-ページ: [[Macro/投稿]]
-作者: [[まくろ初心者]]
-カテゴリー: vbs
-投稿日: 2007-01-29 (月) 22:03:54
** メッセージ [#l0888c74]
応用すればランチャーにもなったりするかもしれません。
#code(VBScript){{
' 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
}}
----
#comment