Option Explicit
ShowSubFolderList "C:\foo\bar"
 
Sub ShowSubFolderList(sPath)
    Dim oFSO, oFldr, oSFldr, s, i, Deep, oSSFldr, oSSSFldr, oSSSSFldr, l
    Dim SubArray()
    Redim SubArray(0)
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFldr = oFSO.GetFolder(sPath)
    i = 0
    For Each oSFldr in oFldr.SubFolders
        For Each oSSFldr in oSFldr.SubFolders
            For Each oSSSFldr in oSSFldr.SubFolders
                For Each oSSSSFldr in oSSSFldr.SubFolders
                    i = i + 1
                    if Ubound(SubArray) < i then Redim preserve SubArray(i)
                    SubArray(i) = oSSSSFldr.Path
                Next
                i = i + 1
                if Ubound(SubArray) < i then Redim preserve SubArray(i)
                SubArray(i) = oSSSFldr.Path
            Next
            i = i + 1
            if Ubound(SubArray) < i then Redim preserve SubArray(i)
            SubArray(i) = oSSFldr.Path
        Next
        i = i + 1
        if Ubound(SubArray) < i then Redim preserve SubArray(i)
        SubArray(i) = oSFldr.Path
    Next
    For l = 0 to i
        Wscript.Echo SubArray(l)
    Next
End Sub