VB6.0から起動したexeファイルを終了するとエラーが発生して困っています

質問

VB6.0(OSはWindowsXP)中からShell関数を利用してexeファイルを起動したのですが、そのexeファイルを終了すると決まってアプリケーションエラーが発生します。これを直接かショートカットで実行して終了するとエラーは出ません。どなたか考えられる原因や解決策をご存じの方、教えて頂けませんでしょうか？よろしくお願い致します。

回答No.2

venzou · ベストアンサー

補足ありがとうございます。

＞終了の方法は普通に右上のＸをクリックしています。
VBから終了させていると思っていました・・・
普通に終了させてエラーが出るのなら、そのexeの問題っぽいですね。

そのexeを持ってないので何とも言えませんが、思いつく回避策として・・・

１　cmd.exeから起動してみる

Shell "cmd.exe /C ""c:\scr32\milking.exe""", vbHide 'プログラム起動

２　これは関係ないはずですが、ディレクトリを変更しない。

Shell "c:\scr32\milking.exe", vbNormalNoFocus 'プログラム起動
'SetCurrentFolder PrgPath 'ここをコメントアウトしてみる

これ位しか思いつかないです。（＾＾；
役に立たないかもしれません、ごめんなさい。

お礼

ご指摘の方法でやってみましたら旨く行きました。大変助かりました。ありがとうございました。

回答No.1

venzou

どういう方法で終了させていますか？
終了のさせ方は間違っていませんか？

よろしければその部分のソースを補足してください。

補足

早速のご回答ありがとうございます。
終了の方法は普通に右上のＸをクリックしています。

ソースは以下のようになります。

PrgPath = GetCurrentFolder '自分自身のフォルダ待避
SetCurrentFolder "c:\scr32" '起動プログラムのフォルダ移動
Shell "c:\scr32\milking.exe", vbNormalNoFocus 'プログラム起動
SetCurrentFolder PrgPath '自分自身のフォルダ復帰

わざわざプログラムのフォルダーに移動しているのは、それがフォルダー内のＤＬＬ等を使っているためです。