エラーが発生するとエラーの発生した次の行から処理を続行
On Error Resume Next
Dim buf As String On Error Resume Next buf = Dir("A:\Dummy.dat") If buf = "" Then MsgBox "ファイルがありません" '表示されます Else MsgBox "ファイルが存在します" End If Exit Sub
エラー処理ルーチンを無効にする
On Error Goto 0
On Error Resume Next
Dim buf As String On Error Resume Next buf = Dir("A:\Dummy.dat") If buf = "" Then MsgBox "ファイルがありません" '表示されます Else MsgBox "ファイルが存在します" End If Exit Sub
On Error Goto 0