2011-06-29 6 views
-1

vb6エラーを隠す方法はありますか?私はエラーを促すプログラムを持っているが、すべてうまくいく。どんな助力も高く評価されます。ありがとう。 UPDコード:vb6でエラーメッセージを表示しない

Set WshShell = CreateObject("WScript.Shell") 'passing the values to program2 
strCommand = """" & App.Path & "\Prog2.exe """ & strArgs(0) & ";" & Trim$(.cFileName) & ";" & strArgs(1) WshShell.Run strCommand 
+0

それはすべてですか?たった2行のコード?ラッピングコードはどこにありますか?あなたは完全なコードを表示することができますか、それとも大きな秘密ですか? – heximal

+0

tnx heximal、しかし私は私の問題に私の解決策を得たと思います。御時間ありがとうございます。次回まで..おかげさまでもう一度おねがいします –

答えて

0

次のようにVBで例外調達を抑制することがあります。

on error resume next 
doSomeDangerousStuff 
if err.Number <> 0 then 
'here is some optional error handling code 
MsgBox "Exception occured: " & Err.Description 
end if 
on error goto 0 
+0

感謝の気持ちで、私は次のエラーで再開し、エラーメッセージのプロンプトを解決します。しかし、それは私の出力に影響します。私が話しているエラーメッセージは範囲外の添え字です。 –

+0

私はprog1とそれをデータベース名prog2でファイルをレンダリングするプログラムをフォルダ名を監視するプログラムを持っています。新しいファイルが監視対象のフォルダにドラッグアンドドロップされるたびに、prog1はファイル名を取得し、prog2に渡してデータベースにレンダリングします。何個のファイルを監視対象のフォルダにドラッグ&ドロップしても、ドラッグ&ドロップに関する問題はありません。私の問題は、私が5つのファイルを上書きして監視対象のフォルダに貼り付けようとしたときにポップアップエラーが発生していることです。 –

+0

ドラッグ・ドロップとコピー/ペーストの違いは、実際に監視対象フォルダにコピーされている時間ですか? –

0

あなたの関数/サブの宣言はエラー後藤error_filterに

を入れた後、

'あなたのコードはここにあります'

あなたのサブ/機能の終了はこの

error_filter入れる前に:err.description =(あなたは排除したいエラーの説明)場合

を、その後

終了サブ

エンド

場合
関連する問題