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

[kalosjo]

Il link che metti non deve essere un link alla directory, ma un link ad una pagina che fa esattamente la stessa cosa che fa questa, ma per la directory selezionata.

Sarebbe bene modificare la stessa pagina in modo da farla funzionare.

[[trodat]]

Modificarla come ?

[santino83]

con un request.querystring in cui passi il nome della cartella da visualizzare e usi quella cartella come partennza nel getfolder

però non è banale come cosa da fare

EDIT:

guarda se QUESTO ti possa andar bene come esempio