Che funzione FSO devo usare per elencare le cartelle all'interno di una cartella?

Nessun problema per i file utilizzando...
<%
Percorso_Cartella= "nomecartella/"
Set File_System_Object = Server.createObject("Scripting.FileSystemObject")
Set Cartella_Object = File_System_Object.GetFolder(Server.MapPath(Percor so_Cartella))
Set Files_Object = Cartella_Object.Files
for each Singolo_File in Files_Object
response.write Singolo_File.Name &"
"
next
Set Files_Object = Nothing
Set Cartella_Object = Nothing
Set File_System_Object = Nothing
%>
...ma per avere anche/solo le cartelle, come faccio?