¿Varios directorios? Pues creo que no habría ningún problema. Se me ocurre guardar las rutas de los directorios en un vector y que luego vaya cambiando con un bucle la conexión. A ver:
Código:
<%
dim rutas
rutas = Array("\Fotos","\Imagenes","\Miscelanea")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
For i = 0 to ubound(rutas)
Set ObjCarpeta = objFSO.GetFolder(Server.MapPath & rutas(i))
'En cada vuelta tienes una carpeta diferente para hacer lo que sea coveniente
Next
%>