AppActivateで開いた外部ファイルの位置を取得 (ID:142100)

名前

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

本文 解決していませんでした・・・ Dim rc as Long On Error Goto Err_Syori rc = shell("c:\program files\mozzila firefox\firefox.exe",1) AppActivate rc,true msgbox "次の処理へ進む準備が出来ました。" Err_Syori: if Err.Number = 5 then '******************************************************* ' Yahooが表示されるまで待って次の操作をさせたいのですが ' どうしたらいいのか判らない部分 '******************************************************* End iF