VBA フォルダを選択して配下のファイルを拡張子を指定して出力する

Private Sub CommandButton1_Click()

    Dim strFolderPath As String
    Dim strFileName As String
    
    Dim lngIndex As Long
    
    Dim objFSO  As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    Dim Files As Object
    Dim File As Object
    
    ' ダイヤログ
    With Application.FileDialog(msoFileDialogFolderPicker)
    
        ' 複数選択不可
        .AllowMultiSelect = False
    
        If .Show <> 0 Then
        
            ' フォルダパスを取得
            strFolderPath = .SelectedItems(1)
        
        End If
    
    End With
    
    ' ファイルを全て取得
    Set Files = objFSO.GetFolder(strFolderPath)
    
    For Each File In Files.Files

        lngIndex = lngIndex + 1
        
        ' 拡張子がテキストのものだけ出力
        If File.Name Like "*.txt" Then
            Cells(lngIndex, 1).Value = File
        End If

    Next File

End Sub