| 日時: 2009/12/26 19:09名前: 花ちゃん
 
************************************************************************************ カテゴリー:[他のアプリ関係][応用コード][]                                      *
 * キーワード:Shell関数,他のプログラム,終了を待つ,WScript.Shell,待機,             *
 ***********************************************************************************
 記事No : 10960
 投稿日 : 2007/12/20(Thu) 17:45
 元質問 : KKUC
 
 外部アプリが実行されて、それが終了するまで待機させたいのですが...
 
 -----------------------------------------------------------------------------------
 記事No : 10967
 投稿日 : 2007/12/21(Fri) 10:04
 回答者 : YK
 -----------------------------------------------------------------------------------
 サンプルです。
 
 Dim WshShell    As Object
 Dim lngTaskId   As Long
 
 Set WshShell = CreateObject("WScript.Shell")
 lngTaskId = WshShell.Run("NotePad.exe", 1, True)
 Set WshShell = Nothing
 
 ' メモ帳が終わるまで表示されない
 MsgBox "AAAA"
 
 
 |