Foro de programacion

<% 
Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject") 
  
'nos selecciona la carpeta en la que esta el archivo 
Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath("imagenes")) 

i=0 
cuenta=0 
For each Fichero in ObjetoCarpeta.Files 
cuenta=cuenta+1 
Next 

if cuenta>0 then cuenta=cuenta-1 
redim archivo(cuenta) 

For Each Fichero in ObjetoCarpeta.Files 
archivo(i)=Fichero.Name 
i=i+1 
Next 

Randomize 
minimo = 0 
maximo = cuenta 
numero = Int(((maximo-minimo+1) * Rnd) + minimo) 

'response.write archivo(numero) 

Set Fichero = Nothing 
Set ObjetoCarpeta = Nothing 
Set ObjetoFSO = Nothing 


%> 

<%= archivo(numero)%>