Err Function
プログラム実行中に発生したエラー内容の特定に利用するエラーコードを返します。
構文:
Err
戻り値:
整数
パラメーター:
エラーの内容を特定して問題点を修正する場合、Err 関数を使ったエラー処理ルーチンが利用できます。
例:
Sub ExampleError
on error goto ErrorHandler REM エラーハンドラーの設定
Dim iVar as Integer
Dim sVar As String
REM 存在しないファイルにアクセスするとエラーが発生
iVar = Freefile
Open "\file9879.txt" for Input as #iVar
Line Input #iVar, sVar
Close #iVar
Exit Sub
ErrorHandler:
MsgBox "Error " & Err & ":" & Error$ + chr(13) + "At line :" + Erl + chr(13) + Now , 16 ,"an error occurred"
End Sub