Dim iTMP
Dim objShell
Set objShell = CreateObject( "WScript.Shell" )
iTMP = objShell.Run( "test1.vbs", 7, true )
If iTMP = errorcode then
statement1
else
statement2
end if
のようにする。
第3引数をFalseにするとコマンドの実行をまたずに次の処理に移る。
そのため、戻り値は常に0になるので注意が必要。
第2引数の意味は以下の通り。
第2パラメータの値 | 意味 |
0 | ウィンドウを非表示にし、別のウィンドウをアクティブにする |
1 | ウィンドウをアクティブにして表示する。ウィンドウが最小化または最大化されている場合は、元のサイズと位置に戻る |
2 | ウィンドウをアクティブにし、最小化ウィンドウとして表示する |
3 | ウィンドウをアクティブにし、最大化ウィンドウとして表示する |
4 | ウィンドウを最新のサイズと位置で表示する。アクティブ・ウィンドウは切り替わらない |
5 | ウィンドウをアクティブにし、現在のサイズと位置で表示する |
6 | 指定したウィンドウを最小化し、Zオーダー上で次に最上位となるウィンドウをアクティブにする |
7 | ウィンドウを最小化ウィンドウとして表示する。アクティブ・ウィンドウは切り替わらない |
8 | ウィンドウを現在の状態で表示する。アクティブ・ウィンドウは切り替わらない |
9 | ウィンドウをアクティブにして表示する。ウィンドウが最小化または最大化されている場合は、元のサイズと位置に戻る |
10 | アプリケーションを起動したプログラムの状態に基づいて表示状態を設定する |