2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« スクリプトと言語を一緒に指定する。 | トップページ | コンテキストメニュー拡張からスクリプトを入力して実行する。 »

2007年10月 4日 (木)

ちょっとしたスクリプトを簡単に入力して実行する。

数行のスクリプトをいちいちメモ帳を開いて入力して、閉じて名前を付けて、実行して、エラーが出たら、メモ帳を開いて直して、また実行、あー面倒臭。
InputBoxに入れて実行します。

Set fso=CreateObject("Scripting.FileSystemObject")
Set wShell=CreateObject("WScript.Shell")
Set Shell=CreateObject("Shell.Application")
Set ie=Shell.Windows().Item()

Do
  vbscript=InputBox("Enter VBScript..."&vbLf&Err.Description,WScript.ScriptName,vbscript,,0)
  If vbscript="" Then Exit Do
  Exec vbscript
Loop

Sub Exec(vbscript)
On Error Resume Next
Execute vbscript
End Sub

よく使うオブジェクトは前もって割り当て済みです。

« スクリプトと言語を一緒に指定する。 | トップページ | コンテキストメニュー拡張からスクリプトを入力して実行する。 »