Mostrar Imagenes de una carpeta
Publicado por Daniel (2 intervenciones) el 20/08/2007 18:47:28
Hola, tengo un problema para obtener imagen de una carpeta, lo bueno es que si logro acceder a la carpeta y a las fotos, obtengo el nombre y laruta, pero cuando visualizo la pagina, muestra el espacio donde deberia aparecer las imagenes , pero no la muestra, este es el codigo que uso:
'***************************************************************************
nombre_carpeta = Server.MapPath("ctCatv104/images")
response.write "<h1>-" & nombre_carpeta & "</h1>" 'muestra la ruta de la carpeta
'Conecto con el sistema de archivos
set FSO = server.createObject("Scripting.FileSystemObject")
'Set ObjCarpeta = objFSO.GetFolder(nombre_carpeta)
'creo el objeto carpeta
Set carpeta = FSO.GetFolder(nombre_carpeta)
'traigo los archivos de la carpeta
Set archivos = carpeta.Files
Redim ArrayImagenes(0)
Indice=0
For Each ObjArchivo in carpeta.Files
Indice=Indice+1
ReDim Preserve ArrayImagenes(Indice)%>
<table bgcolor="#A4C8EC" border="0" width="50%" align="center">
<tr>
<td width="55"><img src = " imagenes<%=ArrayImagenes(indice)%>" border="0" alt="hola" > </td>
<td width="100%"><% response.Write "<br>" & ObjArchivo %> </td>
</tr>
</table>
<% Next%>
'*****************************************************************************
ojala alguien me pudiera ayudar, y decirme porque no se muestra la imagen, desde ya muchas gracias por su tiempo.-
'***************************************************************************
nombre_carpeta = Server.MapPath("ctCatv104/images")
response.write "<h1>-" & nombre_carpeta & "</h1>" 'muestra la ruta de la carpeta
'Conecto con el sistema de archivos
set FSO = server.createObject("Scripting.FileSystemObject")
'Set ObjCarpeta = objFSO.GetFolder(nombre_carpeta)
'creo el objeto carpeta
Set carpeta = FSO.GetFolder(nombre_carpeta)
'traigo los archivos de la carpeta
Set archivos = carpeta.Files
Redim ArrayImagenes(0)
Indice=0
For Each ObjArchivo in carpeta.Files
Indice=Indice+1
ReDim Preserve ArrayImagenes(Indice)%>
<table bgcolor="#A4C8EC" border="0" width="50%" align="center">
<tr>
<td width="55"><img src = " imagenes<%=ArrayImagenes(indice)%>" border="0" alt="hola" > </td>
<td width="100%"><% response.Write "<br>" & ObjArchivo %> </td>
</tr>
</table>
<% Next%>
'*****************************************************************************
ojala alguien me pudiera ayudar, y decirme porque no se muestra la imagen, desde ya muchas gracias por su tiempo.-
Valora esta pregunta
0