简单问题100分！在线等待！！

[zhoujinwei]

FileName = "yongkang\text\档案查询\" & Form2.X & "\" & Y & ".txt"
Dim strTmp

Open FileName For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
以上路径如不存在此文件会提示错误，“找不到此文件”
求错误处理代码，如找不到指定文件则提示“找不到指定文件”并
返回FORM1
急用！！！

[射天狼]

FileName = "yongkang\text\档案查询\" & Form2.X & "\" & Y & ".txt"
Dim strTmp

If Dir(FileName) = "" Then
MsgBox "对不起,此文件不存在!", vbExclamation
Exit Sub
End If

Open FileName For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1

[射天狼]

'或者这样也可以~~

Private Sub Command1_Click()
FileName = "yongkang\text\档案查询\" & Form2.X & "\" & Y & ".txt"
Dim strTmp

Open FileName For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1

Exit Sub
Errhandle:
If Err.Number = 76 Then MsgBox "对不起,文件不存在!", vbExclamation
End Sub

[lxqlogo0]

你可以这样得到错误代码：这样得到错误代码后就可以进行相应的错误处理了
on error goto err1
FileName = "yongkang\text\档案查询\" & Form2.X & "\" & Y & ".txt"
Dim strTmp

Open FileName For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
exit sub
err1: msgbox err.number & err.Description