Shell.Application

CreateObject("Shell.Application")

Dim objApl
Dim objFolder
Dim objItem

Set objApl = CreateObject("Shell.Application")
Set objFolder = objApl.NameSpace( "C:\Users\Default" )

For Each objItem In objFolder.Items
    If true = objItem.IsFolder Then
        WScript.Echo " + " & objItem.Path
    End If
Next

Set objItem = Nothing
Set objFolder = Nothing
Set objApl = Nothing

フルパス付きでファイル名を表示するサンプルです。

フォルダ毎に確認を行う場合は必須です。こちらも使えるように覚えましょう。