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

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

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

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