ASP - Como obtener un listado de las carpetas?

Como puedo obtener un listado de todas las carpetas que existen dentro de una carpeta dada?

Gracias!!!!

yo tengo el codigo pero del listado de todos los archivos de una carpeta como quiera te lo mando..

<%
set dir=server.createobject("scripting.filesystemobject")
set myfiles=dir.getfolder(server.mappath("/upload/"))
for each filefound in myfiles.files
response.write filefound.name
%>
<br>
<%
next
%>