资源介绍
VB 检测文件是否存在，操作时请输入文件所在路径及文件名：单击操作按钮后，将执行以下的代码：
Private Sub Command1_Click()
X% = jc%(Text1.Text) '调用自定义函数返回检测结果
If X% = True Then '判断检测结果
Label2.Caption = "此文件确实存在。" '显示检测结果
Else
Label2.Caption = "此文件不存在."
End If
End Sub
Function jc%(filename$) '自定义函数检测是否存在指定文件
On Local Error Resume Next
Dim n%
n% = FreeFile '释放文件号
Open filename$ For Input As n% '打开文件
If Err Then '根据错误返回值判断
jc% = False '没检测到
Else
jc% = True '检测到指定文件
End If
Close n% '关闭文件
End Function