关于出错保护的问题！在线等待......

Question

各位高人，请教一下。程序出错，怎样才能进行保护呢？
（程序出错，就是出现“实时错误‘XXX’”！！如果编译成exe后就更烦了）
例如：1.copy文件，首先先要找到文件，如果是txt文件的话，可以用fs.CreateTextFile("c:\testfile.txt", True)
来选择文件，再来选文件看它是否为空，来判断保护！但是如果文件是其他文件呢？
比如是gif文件，那样的话怎样保护呢？
2.给人发送email，如果收件人是错误的（如：[email protected]）其中...是多
余的，但是是数据库读出的数据，又不好确定是什么样的错误，如果没有保护，就会出现“实时错误‘424’”！！请问怎样保护呢？！！！请赐教！在线等待......

Answer 1

'加出错处理
on error goto ErrHandleErrHandle:
  select case err.number'根据错误号来分别处理

Answer 2

一般来说，可以在程序中避免的错误，就少用出错程序来处理。
像copy, dir 一下就知道文件存不存在了。最后实在不可避免的未知错误。可以像楼上说的。on error goto ErrHandleErrHandle:
  select case err.number
      case 0   ' 没有错误。
      ...
      ...'根据错误号来分别处理

Answer 3

设置错误陷井on error goto err_proc
...
...
...
exit sub'出错处理
err_proc:
   ...

Answer 4

了解，但是怎样在调回原先的程序呢，也用goto吗？

Answer 5

on error goto errDeal
 语句... exit sub '(或 exit function)
errDeal:
 错误处理

Answer 6

on error goto err_proc
...
...
a:
...
exit sub'出错处理
err_proc:
   ...
  goto a:
end sub这样也可以执行呀

Answer 7

errdeal:
    resume

Answer 8

err_proc:
    resume next

Answer 9

错误处理：On Error GoTo ErrHandle......
......ErrHandle:
   Select Case Err.Number
       Case Num1:
       
       Case Num2:
..........
..........
   End Select

Answer 10

试试
On Error Resume Next
跳过错误继续执行

Answer 11

最好是使用
on error goto errordo:   代码
   exit sub
errordo:
   MsgBox Err.Description, vbOKOnly + vbCritical, "警告"
end sub

Answer 12

sub 开始
on error goto ErrNum你的代码exit sub'错误处理
ErrNum:
 select case err.number
         case 错误号
end select
end sub