Asp - Mostrar todos los archivos de un directorio

Códigos Asp

Podemos mostrar todos los archivos de un directorio. El script rastrea los archivos de la carpeta donde se encuentra la pagina con el script, y muestra un enlace hacia el. En la linea 10 debemos incluir las extensiones de los archivos que queremos mostrar simplemente agregando or right(f1,4) = ".jpg" o cualquier otro tipo

Tutores.org

Inicio > Asp

Visitas: 14,357 - 06/05/2004 2:14:34

CODIGO

<% 'Codigo ofrecido por Tutores.org %>

<%
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
el_archivo = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
loc = InStrRev(el_archivo,"")
el_archivo = Left(el_archivo,loc)
Set f = fso.GetFolder(el_archivo)
Set fc = f.Files
For Each f1 in fc
if right(f1,5) = ".html" or right(f1,4) = ".htm" then
s = s & "<A HREF='" & f1.name & "'>" & f1.name & "</A>"
s = s & "<BR>"
End If
Next
mostrar_archivos = s
%>
<%
response.write mostrar_archivos
%>

ENLACE AL CODIGO

Si quieres enlazar desde tu pagina a este codigo

<a title="Tutores.org - Mostrar todos los archivos de un directorio" href="http://www.tutores.org/codigo/1057/" target="_blank">Mostrar todos los archivos de un directorio</a>

COMENTARIOS

Comentario usuario

enrique alejandro ogaldeenrique alejandro ogalde

4 5

No sirve con jpg. Solo me funciono tal como esta para rastrear htm y html.
Salute

Comentario usuario

KeichiAnimeKeichiAnime

1 5

ya resolvi el problema
mira el codigo bueno

<%
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
el_archivo = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
loc = InStrRev(el_archivo,"")
el_archivo = Left(el_archivo,loc)
Set f = fso.GetFolder(el_archivo)
Set fc = f.Files
For Each f1 in fc
if right(f1,4) = ".jpg" or right(f1,4) = ".bmp" or right(f1,4) = ".png" then
s = s & "<A HREF='" & f1.name & "'>" & f1.name & "</A>"
s = s & "<BR>"
End If
Next
mostrar_archivos = s
%>
<%
response.write mostrar_archivos
%>

sirve para esos 3 y para los que le quieras agregar. solo ponle or right(f1,4) = ".doc" antes de then

saludos.
si te sirve escribes aqui.
gracias ^^

INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
	Codigo Seguridad
	Antes de enviar un comentario... Todos los comentarios son revisados personalmente Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado Usuarios registrados tienen preferencia en recibir respuestas de ayuda!! Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor. Por favor, insertar los comentarios descriptivos.