2009年3月28日土曜日

VBSでいろいろ一気に開く

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


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

 VBSは便利だなぁ。

0 件のコメント:

コメントを投稿