PCによって動く物と動かないものがあります。

質問

VB初心者です。
Win2003Sarver+SQL2000+VB.Net2008の組合せで作っています。
このサイトに別の質問を出しているんですが緊急な質問が出ましたのでこちらも上げさしていただきました。
失礼とは思いましたがご了承ください。

下記の状況で大変困っています。
1.稟議書Menusというソースファイルをデバッグしました。
このフォームのボタンに次の様なVBを書いています。

Private Sub 発行Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 発行Button.Click
'呼出
Dim Ret As Long
If IO.Directory.Exists("C:\VB\稟議書") = True Then
Ret = Shell("C:\VB\稟議書\稟議書0.exe", vbNormalFocus)
Else
Ret = Shell("D:\VB\稟議書\稟議書0.exe", vbNormalFocus)
End If
End Sub

これを自分のPC(Win7)で実行すると問題なく稟議書0.exeが立ち上がります。
他のPC(Win7)に何台かオブジェクトファイルをコピーすると
あるPCは動きますが
あるPCは下記のメッセージが出て動きません。

JIT デバッグの問題のようなんですが・・・
ここら辺は全く判らず。
大変困っています。
動かない機種のメッセージは下記の通りです。
***************************メッセージ**********************************
Just-In-Time (JIT) デバッグを呼び出すための詳細については、
ダイアログ ボックスではなく、このメッセージの最後を参照してください。
************** 例外テキスト **************
System.IO.FileNotFoundException: ファイルが見つかりません。
場所 Microsoft.VisualBasic.Interaction.Shell(String PathName, AppWinStyle Style, Boolean Wait, Int32 Timeout)
場所 稟議書Menu.F稟議書Menu.発行Button_Click(Object sender, EventArgs e)
場所 System.Windows.Forms.Control.OnClick(EventArgs e)
場所 System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
場所 System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
場所 System.Windows.Forms.Control.WndProc(Message& m)
場所 System.Windows.Forms.ButtonBase.WndProc(Message& m)
場所 System.Windows.Forms.Button.WndProc(Message& m)
場所 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
場所 System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
************** 読み込まれたアセンブリ **************
mscorlib
アセンブリ バージョン: 2.0.0.0
Win32 バージョン: 2.0.50727.5446 (Win7SP1GDR.050727-5400)
コードベース: file:///C:/Windows/Microsoft.NET/Framework64/v2.0.50727/mscorlib.dll
----------------------------------------
稟議書Menu
アセンブリ バージョン: 1.0.0.0
Win32 バージョン: 1.0.0.0
コードベース: file:///C:/ＶＢ/稟議書/稟議書Menu.exe
----------------------------------------
Microsoft.VisualBasic
アセンブリ バージョン: 8.0.0.0
Win32 バージョン: 8.0.50727.5420 (Win7SP1.050727-5400)
コードベース: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
アセンブリ バージョン: 2.0.0.0
Win32 バージョン: 2.0.50727.5447 (Win7SP1GDR.050727-5400)
コードベース: file:///C:/Windows/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
************** JIT デバッグ **************
Just-In-Time (JIT) デバッグを有効にするには、このアプリケーション、
またはコンピュータ (machine.config) の構成ファイルの jitDebugging
値を system.windows.forms セクションで設定しなければなりません。
アプリケーションはまた、デバッグを有効にしてコンパイルされなければ
なりません。
例:
<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>

JIT デバッグが有効なときは、このダイアログ ボックスで処理するよりも、
ハンドルされていない例外はすべてコンピュータに登録された
JIT デバッガに設定されなければなりません。

回答No.1

taro_y · ベストアンサー

"C:\VB\稟議書\稟議書0.exe" もしくは "D:\VB\稟議書\稟議書0.exe" がそのPCにないんじゃないですか？

お礼

taro_y さんありがとうございます。
念のため確認しました。

C:\VB\稟議書\稟議書0.exeは
あります。

プログラムも下記のように書き直しましたが、同様の結果です。
Dim Ret As Long
Ret = Shell("C:\VB\稟議書\稟議書0.exe", vbNormalFocus)
不思議なのはWin7でもエラーになるPCとうまく出来るPCがあることです。

続けておねがいいいたします。

回答No.3

MARU4812

もともとセキュリティ面はどんどん厳しくなってるし、
Vista 以降は UAC なんて面倒なものまで導入されてる
から、人間の目で見てファイルがあったところで
プログラムから参照できない場合もあるでしょう。

ただ、そんな事より、プログラムとして大問題なのが、
フォルダの確認だけで、あるかどうか保証の無い
ファイルを起動しているところです。

過去、ファイルがあるといいつつ全角半角の違いや
小さなケアレスミスを行なってきた質問者が星の
数ほど存在します。特に、こんなプログラムコードを
見せられては信用できませんので、自分でログファイル
を出力し、プログラムから何ができて何が出来ていない
のか確実に把握して、その情報を出して下さい。

検証用のテストコードと結果をセットで出して下さい。

お礼

MARU4812 さん
chie65535 さん
taro_y さん

大変大変失礼しました。
MARU4812 さん
のかかれた事を考え
次の様に書換ました。

Dim Ret As Long
If IO.File.Exists("C:\VB\稟議書\稟議書0.exe") = True Then
MsgBox("C:\VB\稟議書\稟議書0.exeはあります。")
Ret = Shell("C:\VB\稟議書\稟議書0.exe", vbNormalFocus)
Exit Sub
End If
If IO.File.Exists("D:\VB\稟議書\稟議書0.exe") = True Then
MsgBox("D:\VB\稟議書\稟議書0.exeはあります。")
Ret = Shell("D:\VB\稟議書\稟議書0.exe", vbNormalFocus)
Exit Sub
End If
MsgBox("AAA")

つまりファイルを調べ見つからなかったら
AAAが出るようにしました。
そしたら
AAAが出てしまいました。

ので、フォルダーも含め全て
書き直しました。

動きました。

誠に申し訳ありませんでした。
これに懲りず又、アドバイスください。

回答No.2

chie65535

稟議書0.exeが、C:\VB\稟議書\にも、D:\VB\稟議書\にも無いのでしょう。

プログラムは

「C:\VB\稟議書\と言うフォルダが存在するならば、C:\VB\稟議書\稟議書0.exeを実行せよ、さもなくば（C:\VB\稟議書\と言うフォルダが存在しないならば）D:\VB\稟議書\稟議書0.exeを実行せよ」

と言うプログラムになっています。

簡単にいうと「CにあればCから起動、無ければ（Dにあると決め打ちで、Dにあるか確認しないで）Dから起動」になってます。

なので「CにもDにも無い」と言う状況だと、Dにあると思い込んでShell関数が呼ばれ「実行しようとしたファイルが無い」ってエラーが出ます。

C:\VB\稟議書\かD:\VB\稟議書\のどちらかに稟議書0.exeが無いと動かないので、存在するか確認して下さい。

お礼

chie65535 さんありがとうございます。
念のため確認しました。
C:\VB\稟議書\稟議書0.exeは
あります。
プログラムも下記のように書き直しましたが、同様の結果です。
Dim Ret As Long
Ret = Shell("C:\VB\稟議書\稟議書0.exe", vbNormalFocus)
不思議なのはWin7でもエラーになるPCとうまく出来るPCがあることです。

続けておねがいいいたします。