Una imagen por cada extensión

[Didirman]

Necesito incluir en este script un código que me muestre una imagen por cada extensión que tenga el archivo (como lo hace windows)

El código para ver todos los archivos es este:

<%
Set MyDirectory=Server.CreateObject("Scripting.FileSys temObject")
Set MyFiles=MyDirectory.GetFolder(Server.MapPath("/gestion"))
For each filefound in MyFiles.files
%>
<% =filefound.Name %><br>
<% Next %>

PD: Cuando tenga una extensión .gif, muestro una imagen de un lobo, cuando tengo una extensión .exe muestro otra, etc...

saludos

[u_goldman]

Se me ocurre que te crees una función que te devuelva la imagen a mostrar con el icono respectivo de acuerdo al argumento que le mandes...


Function SeleccionaImagen(archivo)
extension= right(archivo,3)
ruta= "imagenes\"
Select case extension
case "exe"
imagen= "lobo.gif"
case "gif"
imagen= "otra.gif"
End Select

ruta= ruta & imagen
SeleccionaImagen= ruta
End Function

La forma de llamarlo aqui
<%
Set MyDirectory=Server.CreateObject("Scripting.FileSys temObject")
Set MyFiles=MyDirectory.GetFolder(Server.MapPath("/gestion"))
For each filefound in MyFiles.files
<%imagen= SeleccionaImagen(filefound.name)
Response.write(imagen)
%>
<%=filefound.Name %><br>
<% Next %>


Salu2,

[Didirman]

Muchas gracias u_goldman, el código funciona perfecto

Me gustaría saber de alguna web en español que te explique todas las cosas que podes hacer con archivos de asp.; si sabes de alguna por favor respondeme.

saludos

[u_goldman]

Que bueno que funcionó...hombre pues hay varias, creo que podrias comenzar por aspfacil.com y puedes ver en Google en español de seguro encontrarás muchas muy interesantes...


Salu2,