【VBScript】サブフォルダも検索してファイル一覧を取得するには

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

Option Explicit
Main
Public Sub Main()
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject") '---①

    Dim stFiles
    Set stFiles = CreateObject("Scripting.Dictionary") '---②

    Dim oFolder
    Set oFolder = FSO.GetFolder("C:\test")
    
    Call GetFileRe(oFolder, stFiles)
    
    Dim oExcel
    
    If stFiles.Count > 0 Then
        Dim vOut, ii
        vOut = stFiles.Keys '---③
        Set oExcel = CreateObject("Excel.Application")
        With oExcel.Workbooks.Add
            '---④
            .Worksheets(1).Cells(2, 2).Resize(UBound(vOut) + 1, 1).Value = oExcel.WorksheetFunction.Transpose(vOut)
        End With
    End If
    
    oExcel.Visible = True '---⑤
    Set oExcel = Nothing
    Set oFolder = Nothing
    Set FSO = Nothing
    Set stFiles = Nothing
    WScript.Quit
End Sub

'---⑥再帰呼出するサブ関数
Private Sub GetFileRe(oFolder, ByRef stFiles)
    Dim oFol
    Dim oFile
    
    For Each oFol In oFolder.SubFolders
        '再帰呼出
        Call GetFileRe(oFol, stFiles)
    Next
    
    For Each oFile In oFolder.Files
        'コレクション(辞書)に追加
        stFiles.Add oFile.path, oFile.path
    Next
End Sub