有人请帮助我“使用VB 6.0代码在目录中搜索文件（具有任何扩展名），并且如果在指定目录中找到所需文件，则该代码应返回TRUE，否则为FALSE”
谢谢
Private Function CheckPath (strPath As String) As Boolean
If Dir$(strPath) <> "" Then
CheckPath = True
Else
CheckPath = False
End If
End Function
这是一个VB6函数，用于检查文件是否存在：
Public Function FileExists(ByVal FileName As String) As Boolean
On Error Resume Next
FileExists = Not CBool(GetAttr(FileName) And (vbDirectory Or vbVolume))
On Error GoTo 0
End Function
传入完整的文件名，包括文件路径。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句