Código fuente de 'Ver archivos directorio.asp'
<html>
<head>
<title>Ver archivos directorio - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 11pt">
<p align="center"><b><font size="3">Ver archivos directorio</font></b></p>
<br>Lista de archivos del directorio local:
<% response.write Server.MapPath("./") %>
<br><br>
<% 'Código ASP
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set lista_archivos = fs.GetFolder(Server.MapPath("./"))
'Mostramos los archivos...
For each filefound in lista_archivos.files
Response.Write filefound.Name & "<BR>"
Next
'Fin código ASP%>
</body>
</html>