Randomizar arquivo de uma pasta

[naofuieu 0]

Como eu faço p/ que uma página verifique quais os arquivos que uma pasta possui e randomize qual deles será incluido no Server.Execute?Quem não entender, me diga que eu explico melhor

[Mário Monteiro 179]

vai ter que usar FSO tambem tiozinho

[kauebranco 0]

faz um loop em todos os arquivos e vai guardando o nome dele em uma array ...dai no final você randomiza a array e pega o arquivo !!!

[naofuieu 0]

E como se faria isso...?Alguém poderia me ajudar?Brigadão

[Mário Monteiro 179]

com isto voce pega todos os arquivos

 

Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(Server.Mappath("\")) Set files = folder.Files DIM Arquivos()INDICE = 0For Each file in Files REDIM PRESERVE Arquivos(INDICE)Arquivos(INDICE) = file.NameINDICE = INDICE + 1Next Set files = folder.Files Set file = Nothing Set fso = Nothing

acho que isso ja poe tudo num array

 

agora é so randomizar

 

Adaptado de http://www.sloppycode.net/Reference/FSO/Ref-97.html

[naofuieu 0]

Gente, vocês estão sendo muito legais e pacientes comigo.Aproveitando a paciência, para randomizar, só é preciso incluir a linha "Randomize"?Valeu