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

ファイル パスを含む完全なファイル名を渡します。