ＶＢＳでいろいろ一気に開く

　配列図を開いて、菱を起動して、タイプウェルを起動して…。最近、ＰＣに向かうと同じ事ばっかりやってるので、ＶＢＳ化してしまいました。

Option Explicit

Dim objWshShell

Set objWshShell = WScript.CreateObject("WScript.Shell")

With objWshShell
    .Run("D:\日本語入力\月5-315\月5-315_配列図.png")
    .Exec("C:\App\hishi121\hishi.exe")
    .Exec("C:\App\TWJK214\TWellJK.exe")
End With

Set objWshShell = Nothing

　ついでに同じのを短く書いてみたりして。

With WScript.CreateObject("WScript.Shell")

    .Run("D:\日本語入力\月5-315\月5-315_配列図.png")
    .Exec("C:\App\hishi121\hishi.exe")
    .Exec("C:\App\TWJK214\TWellJK.exe")

End With

　ＶＢＳは便利だなぁ。