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

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

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

1 个答案: