File System Object

[EDSONET]

Seguinte, preciso listar uma uma pagina LINKS de imagens hospedadas dentro um diretório X.

Ex:

No meu site existe um diretório chamado imagens.

Dentro de imagens existe varios arquivos em jpg.

Gostria que listar todos os arquivos presentes naquele diretorio em forma de link, onde eu clico e aparece aquela imagem.

alguém tem ideia de como fazer isso?

Abrigado!

[cyberalexxx]

Olha ai um exemplo:

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("c:\intranet") ' coloque a pasta principal
Set arquivos = principal.Files


dim nome
nome=array()
For each arq in arquivos
redim preserve nome(Ubound(nome)+1)
nome(Ubound(nome)) = arq.name
next

CAMINHO=MID(PRINCIPAL,3,LEN(PRINCIPAL)-2)

for x = 0 to Ubound(nome)  
if FSO.GetExtensionName(nome(x)) = "jpg" then
   response.write "<a href="& CAMINHO &"\"& nome(x)& ">"& nome(x) &"</a><br>"
end if
next

%>