VB 请高手讲解下......

来源:百度知道 编辑:UC知道 时间:2024/05/17 23:34:24
我看到了如下的代码.帮忙解释几个难点.先谢谢了.

代码:
Function fileExists(fname As String)
On Error Resume Next
Open fname For Input As #1
If Err Then
fileExists = False
Else
fileExists = True
End If
Close #1
End Function

Private Sub Command1_Click()
Dim foundfile As Boolean

If Trim(txtfilename.Text) = "" Then
MsgBox "请输入文件名", vbOKOnly
Exit Sub
End If
foundfile = fileExists(txtfilename.Text)
If foundfile = True Then
MsgBox (Trim(txtfilename.Text)) & "文件存在", vbOKOnly
Else
MsgBox (Trim(txtfilename.Text)) & "文件不存在", vbOKOnly
End If
End Sub

我想请教的是:
fname 是个什么东东? 帮我解释下.
谢谢

还有一个问题是:

on error resume next
这个语句该怎么用? 是怎么用的.
谢谢哈

fname 只是 函数fileExists(fname As String) 的参数,参数类型为string字符串型,你可以换成其他的字符, 没别的意思,
on error resume next 这是vb的错误处理语句,这句的意思是遇到错误忽略,继续往下执行,这种错误处理还有一句就是on error goto err
这是错误捕捉,这种处理必须有错误处理环节
完整语句是
on error goto err
代码1
err:
代码2
当在代码1处出现错误的时候,就无条件跳转到err处处理,去执行代码2

fname文件路径

....那个错误处理语句就不用说了上面的兄弟已经说了