VBで別のプログラムを起動し他の処理を中断したい

質問

VBプログラムの実行中に、shell("hoge.exe")で別のプログラムを起動しそのプログラムが終了すれば次の処理に移るという処理をしたいんですが、実現方法がわかりません。どうすればよいでしょうか？アドバイスよろしくお願いします。

回答No.3

maruru01 · ベストアンサー

こんにちは。maruru01です。

別のAPIによる方法です。
WaitShellという関数を自作しました。
関数の引数には、Shell関数の引数をそのまま渡せばOKです。

***** API関数と定数の宣言 *****

'既存のプロセスオブジェクトのハンドルを返す関数
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

'OpenProcess関数の第1引数用の定数
Public Const PROCESS_QUERY_INFORMATION = &H400&

'指定されたプロセスの終了状態を返す関数
Public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long

'終了コードを示す定数
Public Const STATUS_PENDING = &H103&
Public Const STILL_ACTIVE = STATUS_PENDING

'オープンしているオブジェクトハンドルをクローズする関数
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

***** 関数 *****

'アプリケーションを起動し、終了するまで待機する
Public Sub WaitShell(AppPath As String, Optional SizeFocusmode As Integer = vbNormalFocus)

　　Dim AppID As Long　　'Shell関数の戻り値
　　Dim Process As Long　　'OpenProcess関数の戻り値
　　Dim ExitCode As Long　　'終了コード
　　Dim rc As Long

　　AppID = Shell(AppPath, SizeFocusmode)
　　Process = OpenProcess(PROCESS_QUERY_INFORMATION, 1, AppID)

　　'プロセスが終了していない間はDoEvents関数でOSに制御を戻す
　　Do
　　　　rc = GetExitCodeProcess(Process, ExitCode)
　　　　DoEvents
　　Loop While ExitCode = STILL_ACTIVE

　　rc = CloseHandle(Process)

End Sub