2017年11月
      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

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

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