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

谁来帮帮我 “使用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

Private函数CheckPath（strPath作为字符串）作为布尔值
如果Dir$（strPath）“，则
CheckPath=True
其他的
CheckPath=False
如果结束
端函数

这里有一个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

---

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

我想我的问题是可能被误解了，下面的代码已经尝试过了。请核对一下。感谢私有函数CheckPath（strPath作为字符串）作为布尔函数If Dir$（strPath）“，然后CheckPath=True Else CheckPath=False End If End Function感谢MicSim，感谢一个lot这是你应得的+1，尽管询问者接受了你的答案，但奇怪的是忽略了它。但我还是不得不指出，在大多数情况下，检查文件是否存在并不像看上去那样必要。即使您在试图操纵或与之交互之前确认了文件的存在，您仍然会受到竞争条件的约束。最好尝试您需要的任何文件操作，并处理由此产生的错误。