如何添加计数最多的文件夹并输出其名称的文件夹？

Question

我想让此脚本计算第一级文件夹的子文件夹数量，并输出子文件夹数量较多的文件夹的文件夹名称。

这是基本代码：

Dim NOME_CARTELLA_SELEZIONATA,nomedrive
Dim SHELLA, OGGETTO_FOLDER
Set SHELLA  = CreateObject( "Shell.Application" )
nomedrive = "C:\"
Set OGGETTO_FOLDER = SHELLA.BrowseForFolder( 0, "SELEZIONA UNA CARTELLA", 0, nomedrive)
If Not (OGGETTO_FOLDER Is Nothing) Then
    NOME_CARTELLA_SELEZIONATA = OGGETTO_FOLDER.Self.Path
    Set OGGETTO_FOLDER = Nothing
Else
    NOME_CARTELLA_SELEZIONATA = ""
End If
Set SHELLA = Nothing
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(NOME_CARTELLA_SELEZIONATA)
ShowSubFolders objFSO.GetFolder(NOME_CARTELLA_SELEZIONATA)

Sub ShowSubFolders(Folder)
    For Each Subfolder In Folder.SubFolders
        WScript.Echo Subfolder.Path
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        Set colFiles = objFolder.Files
        ShowSubFolders Subfolder
    Next
End Sub