フォルダ配下(サブフォルダも)ファイル一覧を取得するには【CMD】【ExcelVBA】

C:\test>tree /f
フォルダー パスの一覧:  ボリューム Windows-SSD
ボリューム シリアル番号は D0EF-3D22 です
C:.
│  results-001-タイプAとタイプBを比較.pptx
│  results-002-タイプAとタイプCを比較.pptx
│  results-003-タイプBとタイプCを比較.pptx
│  results-004-タイプCとタイプDを比較.pptx
│  test.jpg
│
└─Sub1
    │  果物.xlsx
    │
    └─Sub2
            aaaa.txt

dir /b/a:-D/s

C:\test>dir /b/a:-D/s
C:\test\results-001-タイプAとタイプBを比較.pptx
C:\test\results-002-タイプAとタイプCを比較.pptx
C:\test\results-003-タイプBとタイプCを比較.pptx
C:\test\results-004-タイプCとタイプDを比較.pptx
C:\test\test.jpg
C:\test\Sub1\果物.xlsx
C:\test\Sub1\Sub2\aaaa.txt

Option Explicit

Public Sub GetFileList()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject") '---①
    
    Dim stFiles As Collection
    Set stFiles = New Collection
    
    Dim oFolder As Object
    Set oFolder = FSO.GetFolder("C:\test")
    
    Call GetFileRe(oFolder, stFiles)
    
    If stFiles.Count > 0 Then
        Dim vOut() As Variant, ii As Long     '---②
        ReDim vOut(1 To stFiles.Count)        '---②
        For ii = LBound(vOut) To UBound(vOut) '---②
            vOut(ii) = stFiles(ii)            '---②
        Next ii
        With ThisWorkbook.Worksheets(1)
            .Cells(2, 2).Resize(UBound(vOut), 1).Value = WorksheetFunction.Transpose(vOut)
        End With
    End If
    
    Set oFolder = Nothing
    Set FSO = Nothing
    Set stFiles = Nothing
End Sub

Private Sub GetFileRe(oFolder As Object, ByRef stFiles As Collection)
    Dim oFol As Object
    Dim oFile As Object
    
    '---③ ここでFSOをクリエイトしない
    
    For Each oFol In oFolder.SubFolders
        '再帰呼出
        Call GetFileRe(oFol, stFiles) '---④
    Next oFol
    
    For Each oFile In oFolder.Files
        'コレクションに追加
        stFiles.Add oFile.path, oFile.path
    Next oFile
End Sub