VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 检测文件是否存在
发表评论(0)作者:, 平台:, 阅读:17075, 日期:2000-03-12
检测文件是否存在

Function FileExists(FileName As String) As Boolean

On Error Resume Next

FileExists = Dir$(FileName) <> ""

If Err.Number <> 0 Then

FileExists = False

End If

On Error GoTo 0

End Function