Foros del Web » Programando para Internet » ASP Clásico »

Listar directorios con ASP

Estas en el tema de Listar directorios con ASP en el foro de ASP Clásico en Foros del Web. Pues eso, que necesito Listar directorios con ASP para no tener que darle al directorio permisos de visualizacion de ficheros. Alguna idea?...
  #1 (permalink)  
Antiguo 02/05/2002, 17:43
Avatar de maestro  
Fecha de Ingreso: febrero-2002
Ubicación: España
Mensajes: 2.364
Antigüedad: 22 años, 4 meses
Puntos: 1
Listar directorios con ASP

Pues eso, que necesito Listar directorios con ASP para no tener que darle al directorio permisos de visualizacion de ficheros.
Alguna idea?
  #2 (permalink)  
Antiguo 03/05/2002, 04:49
 
Fecha de Ingreso: mayo-2002
Mensajes: 66
Antigüedad: 22 años, 1 mes
Puntos: 0
Re: Listar directorios con ASP

Utiliza el objeto FileSystemObject y créate un algoritmo para recorrer (y listar)recursivamente la estructura de directorios de tu dominio.
  #3 (permalink)  
Antiguo 03/05/2002, 10:40
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
Re: Listar directorios con ASP

Fijate, yo estoy haciendo algo así para mostrar las carpetas:

Código:
<%
Ruta = Request.QueryString("Path")

If Ruta = "" then
	Ruta="/"
Else
	Ruta = Ruta & "/"
End if

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Server.MapPath(Ruta))
Set Subcarpetas = Carpeta.SubFolders


For Each SubCarpeta in Subcarpetas
SubCNombre = Subcarpeta.Name
%>

<a href="misma_pagina.asp?Path=<% = Request.QueryString("Path") & "/" & SubCNombre %>"><% = SubCNombre %></a>

<% Next %>

No se si me equiboqué al hacer el copy&paste... creo que no me saltié nada importante.
  #4 (permalink)  
Antiguo 15/09/2003, 13:39
Avatar de dobled  
Fecha de Ingreso: enero-2002
Ubicación: Rancagua - Chile
Mensajes: 1.328
Antigüedad: 22 años, 4 meses
Puntos: 2
ta muy weno el cod. pero komo como se hace para ver las carpetas por q' eso no las muestra??
__________________
Usa títulos específicos y con sentido
En las listas de correo o en los grupos de noticias, la cabecera del mensaje es tu oportunidad de oro para atraer la atención de expertos cualificados en aproximadamente 50 caracteres o menos. No los desperdicies en balbuceos como "Por favor ayúdame" (de "POR FAVOR AYÚDAME!!!" ya ni hablamos). No intentes impresionarnos con lo profundo de tu angustia; mejor usa ese preciado espacio para una descripción lo más concisa posible del problema.
  #5 (permalink)  
Antiguo 02/10/2003, 14:12
Avatar de dobled  
Fecha de Ingreso: enero-2002
Ubicación: Rancagua - Chile
Mensajes: 1.328
Antigüedad: 22 años, 4 meses
Puntos: 2
dazuaga komo traduces ese codigo me quedo la ensalada al pegarlo en DW
__________________
Usa títulos específicos y con sentido
En las listas de correo o en los grupos de noticias, la cabecera del mensaje es tu oportunidad de oro para atraer la atención de expertos cualificados en aproximadamente 50 caracteres o menos. No los desperdicies en balbuceos como "Por favor ayúdame" (de "POR FAVOR AYÚDAME!!!" ya ni hablamos). No intentes impresionarnos con lo profundo de tu angustia; mejor usa ese preciado espacio para una descripción lo más concisa posible del problema.
  #6 (permalink)  
Antiguo 03/10/2003, 04:55
 
Fecha de Ingreso: noviembre-2001
Ubicación: Valencia
Mensajes: 23
Antigüedad: 22 años, 7 meses
Puntos: 0
CODIGO REPARADO:

<%
Ruta = Request.QueryString("Path")

If Ruta = "" then
Ruta="/"
Else
Ruta = Ruta & "/"
End if

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Server.MapPath(Ruta))
Set Subcarpetas = Carpeta.SubFolders

For Each SubCarpeta in Subcarpetas
SubCNombre = Subcarpeta.Name
%>
<a href="misma_pagina.asp?Path=<% = Request.QueryString("Path") & "/" & SubCNombre %>"><% = SubCNombre %></A><br>
<% Next %>
__________________
Un saludo, [FACCE]
Webmaster de zonavirus.com
  #7 (permalink)  
Antiguo 04/11/2003, 15:04
Avatar de dobled  
Fecha de Ingreso: enero-2002
Ubicación: Rancagua - Chile
Mensajes: 1.328
Antigüedad: 22 años, 4 meses
Puntos: 2
Deje asi el codigo ,, ahora me muestra los archivos y las carpeta OK

pero no me habre los archivos me dice que no encuentra la ruta

<%
Ruta = Request.QueryString("Path")

If Ruta = "" then
Ruta="/"
Else
Ruta = Ruta & "/"
End if

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Server.MapPath(Ruta))
Set Subcarpetas = Carpeta.SubFolders

For Each SubCarpeta in Subcarpetas
SubCNombre = Subcarpeta.Name
%>
<a href="manuales.asp?Path=<% = Request.QueryString("Path") & "/" & SubCNombre %>"><% = SubCNombre %></A><br>
<% Next %>

<%
Set archivo = FSO.GetFolder(Server.MapPath(Ruta))
Set subarchivos = archivo.files

For Each subarchivo in subarchivos
SubFNombre = subarchivo.Name
%>
<a href="manuales.asp?Path=<% = Request.QueryString("Path") & "/" & SubFNombre %>"><% = SubFNombre %></A><br>
<% Next %>
__________________
Usa títulos específicos y con sentido
En las listas de correo o en los grupos de noticias, la cabecera del mensaje es tu oportunidad de oro para atraer la atención de expertos cualificados en aproximadamente 50 caracteres o menos. No los desperdicies en balbuceos como "Por favor ayúdame" (de "POR FAVOR AYÚDAME!!!" ya ni hablamos). No intentes impresionarnos con lo profundo de tu angustia; mejor usa ese preciado espacio para una descripción lo más concisa posible del problema.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:27.