vb6 - 使用 vb 6.0 在目录中查找文件

Question

有人请帮我“使用 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

Answer 1

这是一个检查文件是否存在的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

传入完整的文件名，包括文件路径。