# Re: 救你吧!这也是别人教我的哦~~~~

Posted by coco on January 20, 1999 at 11:40:30:

In Reply to: 请问小吴如何先检查档案是否存在! posted by jjwang on January 20, 1999 at 08:48:52:

On Error 的时候
假设妳打了 On Error Goto ErrHdr
而在 ErrHdr 的区块中打了以下程式
ErrHdr:
Select Case Err.Number
Case 53 '找不到档案
Msgbox "找不到档案，自行开启一个 Temp 档"
Open "TempFile" For Input As #1
Case 52 '不正确的档案名称或数目
....
Case Else
Resume Next
End Select
Exit Sub

如此一来，妳就很容易在例外处理的区块中
写出碰到不同的错误所要的不同处理方式
像上面一个程式，53 时是找不到档案
于是处理的方式就是自行开一个档案来代替使用者要的档案
52 我就省略了，而最后一个 Case Else 是说
一但错误不是以上的形式，就继续执行吧

Follow Ups: