08/12/2003, 15:14
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
| 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,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |