Macro/投稿/163

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


Top > Macro > 投稿 > 163

MKTABLE起動マクロ

  • ページ: Macro/投稿
  • 作者: まくろ初心者?
  • カテゴリー: vbs
  • 投稿日: 2007-01-29 (月) 22:03:54

メッセージ

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

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
' 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


URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

リロード   新規 編集 凍結 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2007-01-29 (月) 22:03:54 (4337d)