ASP - Otra vez! ¿listado de directorios?

¿Como puedo obtener un listado de los directorios que existen en determinado directorio en el servidor?.

De antemano, Gracias!!!

Esta funcion muestra todas las carpetas que contiene la carpeta pasada como parametro en (folderspec)

Response.Write ShowFolderList("ruta_carpeta")

Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
s = s & f1.name
s = s & "<BR>"
Next
ShowFolderList = s
End Function

Saludos, El Guru

Te lo agradezco mucho!!!