<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set lista_archivos = fs.GetFolder(Server.MapPath("http://servidor/directorio/"))'AKIII!!!
'Mostramos los archivos...
For each filefound in lista_archivos.files
Response.Write filefound.Name & "<BR>"
Next
%>