Macro/投稿/163 の変更点

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F163


Top > Macro > 投稿 > 163
  • 追加された行はこの色です。
  • 削除された行はこの色です。
  • Macro/投稿/163 へ行く。

* 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

    ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS