Un poco tarde pero allá va. Todo está bien excepto una cosa: se te olvida recoger el nombre del archivo para meterlo en el vector. Por eso siempre sale el cuadrito con la x. El vector está bien dimensionado, pero vacío de contenido.
Código:
For Each ObjArchivo In ObjCarpeta.Files
Indice=Indice+1
ReDim Preserve ArrayImagenes(Indice)
ArrayImagenes(Indice)=ObjArchivo.Name
Next
Así está bien. De todas formas comprueba que las rutas son correctas, ya que si te fijas
Código:
....
("C:\Inetpub\wwwroot\asp\Portal_Control_Estudio\Foto s")
....
<img src="mis_imagenes\<%=ArrayImagenes(al_azar)%>">
...
Parece que no coinciden.
Un saludo.