Excel VBA Dir関数戻り値でディレクトリのファイルを取得する使い方

以下のようなシーンで利用されます。

・特定の条件に一致する最初のファイルやフォルダを取得する際に使用します。

・ファイルの存在を確認したり、一連のファイルを処理する際に利用します。

Option Explicit

Sub SearchFile()
    Dim folderPath As String
    Dim fileName As String

    ' ディレクトリの設定
    folderPath = "C:\Users\User\Desktop\新しいフォルダー\"

    ' 指定のパターンに一致する最初のファイルを検索
    fileName = Dir(folderPath & "*.txt")

    ' 一致するファイルが見つかったかどうかの確認
    If fileName <> "" Then
        MsgBox "Found file: " & folderPath & fileName
    Else
        MsgBox "No matching file found."
    End If
End Sub