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

ShowSubfolders FSO.GetFolder(searchOrdner)

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