Dim msg as string

'如果检测到任何一个错误，开始捕获，从而相应错误处理
on Error goto checkError
   S=(Dir ("a:/test.txt")<>")
'如果未出现错误，则避免使用错误处理

checkerror: '如果出现错误，则在分支
'定义常数，以表示固定的VB错误代码
If(err.number=71) Then

msg="将软盘放入，软盘驱动器并关闭
'显示有感叹号图标，以及确定和取消按钮的消息框
   If(Err.num=71) then

 Resunme
Else
 Resunme Next
end IF

Else Err.number=68 then

msg="当前路径不纯在："&filename

msgbox msg

Resunme Next
Else

msg="不可预知错误# &str(err.number)
msg=msg& "发生于:"err.Descripion
msgbox msg
STOP
end if
Resunme



高人帮我添加以下注释。 是所有的注释。我刚学不久读不懂。或通俗的用语言讲解一下。思路。
比如：Dim msg as string   声明msg为字符串变量。

大恩不言谢！QQQ

S=(Dir ("a:/test.txt")<>")

通过错误了？

S=(Dir ("a:/test.txt")<>"")

？？领导啥意思？

没人能搞？

程序代码不完整,没办法搞.

这行代码前面,明显还有代码.
checkerror: '如果出现错误，则在分支