VB 检测文件是否存在.rar

VB检测文件是否存在，操作时请输入文件所在路径及文件名：单击操作按钮后，将执行以下的代码：　　PrivateSubCommand1_Click()　　X%=jc%(Text1.Text)'调用自定义函数返回检测结果　　IfX%=TrueThen'判断检测结果　　Label2.Caption="此文件确实存在。"'显示检测结果　　Else　　Label2.Caption="此文件不存在."　　EndIf　　EndSub　　Functionjc%(filename$)'自定义函数检测是否存在指定文件