例: JavaError クラス

このスクリプトは、特定の Java™ クラスを取得しようとしている間にエラーをキャッチします。MessageBox でエラーが報告されると、ClearJavaError を使用して JavaError がクリアされます。

Dim mySession As JavaSession
Dim myClass As JavaClass
Dim myError As JavaError

On Error GoTo Catch

Set mySession = new JavaSession()
Set myClass = mySession.GetClass("Invalid")
done:
exit sub

Catch:
Set myError = mySession.getLastJavaError()
MessageBox myError.errormsg,, "Error"
mySession.ClearJavaError
Resume done