Buscar folders en server

[JavierMMM]

Hola de nuevo, en esta ocasaión me tiene trabado la siguiente cuestión:

necesito buscar algunas carpetas en un servidor , pero no tengo la menor ídea de cómo hacerlo... Para buscarlos localmente utilizo lo siguiente:

Código:

<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FolderExists("c:\asp")=true then
  response.write("Folder c:\asp exists!")
else
  response.write("Folder c:\asp does not exist!")
end if
set fs=nothing
%>

pero cómo puedo hacerle para que la ruta sea virtual sea la que busque...

¿¿¿

Código:

if fs.FolderExists("/content/mde/APL02Mar09/24101/ME.doc")=true then

???

Gracias de antemano...

[u_goldman]

Hola JavierMMM

Utiliza: Server.MapPath()

Código:

ruta = Server.MapPath("content/mde/APL02Mar09/24101")
if fs.FolderExists(ruta)  then
.
.
.

Haz un Response.Write(ruta) para ver que realmente te devuelva la ruta deseada, si no es asi puedes modificarlo hasta ver cual es la ruta correcta.

Saludos

[JavierMMM]

Hola u_goldman, gracias por contestar... Ya depués de seguir tu consejo y de un "estira y afloja" algo tenso entre mi pc y yo, lo logré jejejeje... Quedó de la siguiente manera:

Código:

nombre_carpeta =  Server.MapPath("\content\content\mde") '& "\"	
set FSO = server.createObject("Scripting.FileSystemObject")
Set carpeta = FSO.GetFolder(nombre_carpeta)
Set archivos = carpeta.Files
Set subFolders = carpeta.SubFolders

for each nombre_archivo in subFolders
	for i=len(nombre_archivo) to 1 step -1
		if ( mid(nombre_archivo,i,1) ="\" ) then
			archivo_descc = mid (nombre_archivo,i+1,i)
			'response.Write(nombre_archivo) & "<br>"		
			exit for
		end if
	next
	response.Write(nombre_archivo) & "<br>"
next

y me funciona de maravilla... Ahora seguiré con el siguiente paso que es visualizar todos los archivos contenidos en las n carpetas que tiene esta ruta...

Muchas gracias nuevamente...

[u_goldman]

Por nadas