Lettura files e cartelle sul server

[[trodat]]

Ciao a tutti.

Con questo codice visualizzo tramite asp le cartelle ed i file contenuti in una determinata directory del sito:

Cartelle


<%
Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath("Archivio_Disegni/"))

For each directoryfile in allFiles.subfolders

if right(directoryfile.Name,3) <> "cnf" then %>
<a href="Archivio_Disegni/<% =directoryfile.Name %>" target="_blank">
<% =directoryfile.Name %></a>


<% 
end if 
Next 
%>


Files


<% 
For each directoryfile in allFiles.files %>
<a href="Archivio_Disegni/<% =directoryfile.Name %>">
<% 
ext=right(directoryfile.Name,3)
select case ext 
case "pdf","asp","htm","mdb","xls","ppt","doc","txt" %>
[img]images/<%= ext %>.jpg[/img]
<% case else %>
[img]images/unk.jpg[/img]
<% end select %>
<% =directoryfile.Name %></a>


<% Next %>

Problemi:

- Quando clicco sul nome della cartella per vedere ciò che contiene risponde con:

Directory Listing Denied
This Virtual Directory does not allow contents to be listed.

- Se trova una directory deve far visualizzare l'img dir.jpg ma non lo fa.

Dove sbaglio ???

Grazie