実行ファイルが終了するまで待機する (ID:107499)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じでやってみては？ Dim IDProcess As Long Dim hProcess As Long Dim ExitCode As Long Dim ret As Long IDProcess = Shell("...", ?) hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 1, IDProcess) Do ret = GetExitCodeProcess(hProcess, ExitCode) DoEvents Loop While (ExitCode = STILL_ACTIVE) ret = CloseHandle(hProcess)