SprintDevelop.com - Diseño y desarrollo web - Diseño, desarrollo web,Aplicaciones Móviles, TabletasSprintDevelop.com - Diseño y desarrollo web
Mostrando Codigo - Asp
Code

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
Visitas: 12,926 - 06/05/2004 2:14:34
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <%
  2.   Dim fso, f, f1, fc, s
  3.   Set fso = CreateObject("Scripting.FileSystemObject")
  4.     el_archivo = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
  5.     loc = InStrRev(el_archivo,"")
  6.     el_archivo = Left(el_archivo,loc)
  7.   Set f = fso.GetFolder(el_archivo)
  8.   Set fc = f.Files
  9.   For Each f1 in fc
  10.     if right(f1,5) = ".html" or right(f1,4) = ".htm" then
  11.             s = s & "<A HREF='" & f1.name & "'>" & f1.name & "</A>"
  12.         s = s &  "<BR>"
  13.     End If
  14.   Next
  15.   mostrar_archivos = s
  16. %>
  17. <%
  18. response.write mostrar_archivos
  19. %>



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<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>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
enrique alejandro ogalde
2 5
No sirve con jpg. Solo me funciono tal como esta para rastrear htm y html.
Salute
Comentario usuario
KeichiAnime
4 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.