searchOrdner = "D:\projektetest"
iOrdner = 0
i = 0
Set FSO = CreateObject("Scripting.FileSystemObject")

iOrdner = ShowSubfolders (FSO.GetFolder(searchOrdner))
wscript.echo iOrdner & "Unterordner vorhanden"

Function ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        i = i + 1
        Wscript.Echo iOrdner & vbTab & Subfolder.Path
    Next
    ShowSubFolders = i 
End Sub