文件名称：VB 检测文件是否存在.rar
文件大小：2KB
文件格式：RAR
更新时间：2022-07-30 05:53:40
VB源码-文件操作
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
【文件预览】：
srcfans.com
----检测文件是否存在()
--------Form1.frm(3KB)
--------E287.vbp(684B)
--------E287.vbw(50B)
--------MSSCCPRJ.SCC(332B)