08/12/2003, 14:37
|
| | | Fecha de Ingreso: diciembre-2003
Mensajes: 48
Antigüedad: 21 años, 5 meses Puntos: 0 | |
| Una imagen por cada extensión
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 |