投稿日 | : 2003/05/23(Fri) 09:55 |
投稿者 | : tadashi |
URL | : |
タイトル | : 光磁気ディスク(MO)エラーなどについて |
いつも参考にさせてもらっています。
vb.netで開発しているんですが、
vb4.0やvb6.0の時などはエラーを以下のソースのように取得していました。
vb.netになってからtry〜Catchイベントでエラーを拾っているんですが、
try〜Catchイベントを使用してるときはResumeが使用できないので、
Resumeに変わるものってあるのでしょうか?
(マニュアルで探したのですが、発見できませんでした)
あとエラーコードってvb.netでも同じ番号なのでしょうか?
誰かご存知の方がいましたら教えてください。
On Error GoTo COPY_Err
COPY_Err:
Select Case Err.NUMBER
Case 61
MSG_STATUS_01 = MsgBox("光磁気ディスク(MO)が容量不足です。_
ERR = " & Error(Err.NUMBER), vbCritical + vbAbortRetryIgnore)
Case 68, 71
MSG_STATUS_01 = MsgBox("光磁気ディスク(MO)がセットされていません。_
ERR = " & Error(Err.NUMBER), vbCritical + vbAbortRetryIgnore)
End Select
Select Case MSG_STATUS_01
Case vbAbort '// 中止
Exit Function
Case vbRetry '// 再試行
Resume
Case vbIgnore '// 無視
Resume Next
End Select