Leggere le sottocartelle sul server

[bibuz]

Salve ragazzi, facendo una ricerca sul forum ho trovato questo script che mi permette di visualizzare i file all'interno di una cartella sul server.

Il mio problema è che non riesco però a visualizzare e ad accedere ad eventuali sottocartelle che si trovano all'interno della cartella. (In questo caso Documenti).

Avreste dei suggerimenti in merito per risolvere il problema?

Ecco lo script:

<% 
dir="/documenti" 
Set file1 = CreateObject("Scripting.FileSystemObject") 
Set file2 = file1.GetFolder(server.mappath("documenti")) 
Set file3 = file2.Files 
For Each file in file3 
response.write "<A HREF=/consiglioNotarile/documenti/"
response.write file.name 
response.write ">" 
response.write file.name 
response.write "</A>
" 
Next 
%>

[Santino83_02]

gran cosa i motori di ricerca eh?
http://www.google.com/search?hl=it&c...btnG=Cerca&lr=

in particolare:


http://classicasp.aspfaq.com/files/d...ubfolders.html

[bibuz]

Ho provato a vedere ma un'esempio calzante per il mio caso, non l'ho trovato.

Come ripeto ho la necessità di navigare tra le cartelle e sottocartelle all'interno del server con la possibilità di aprire ogni tipo di file all'interno di ogni cartella o sottocartella.

La maggior parte degli esempi mi mostrano le cartelle e sotto cartelle in una struttura ad Albero ma così a me non serve.

Ho trovato questo script ma ha limitazione nell'estensione del file:

<%

Dim subfolder(50) ' elenco delle sottocartelle
Dim files(200) ' elenco dei files
Dim picture(200) ' elenco dei files con l'estensione cercata

'***Assegnazione delle variabili***
' informazioni sul percorso dell'immagine
percorso = Request.QueryString("path")
wwwpercorso = percoso
' Recupera la pagina web corrente
URL = Request.ServerVariables("URL")

' inizializzazione e assegnazione degli indici degli array
  ifolder=1
ifiles=1
iImage=1

'***Valori da modificare***
' assegnazione del tipo di file da visualizzare
estensione="pdf"
' numero di Thumb per riga
numerothumb=4

Set fs = CreateObject("Scripting.FileSystemObject")

' se il percorso non è stato già scelto, viene impostato sulla cartella corrente
if (percorso = "") then
  wwwpercorso = "./"
  filepath = "./"
else
  filepath = "./" & percorso
end if

' percorso assoluto del file
dbfile = Server.MapPath(filepath)

wwwpath = URL

Set f = fs.GetFolder(dbfile)
Response.Write("<a href=javascript:history.back(1)>Precedente</A>
")
' elenco sottocartelle
Set sf = f.SubFolders

For Each f in sf 'per ogni sottocartella ....
  subfolder(ifolder) = subfolder(ifolder) & f.name
  ifolder=ifolder+1
Next

do while ifolder>1
'se il percorso non è stato assegnato viene generato automaticamente...
  if percorso="" then
    link = wwwpath & "?PATH=" &(subfolder(ifolder-1))&">" & subfolder(ifolder-1)
  else
    link=wwwpath & "?PATH=" &percorso&"/"&(subfolder(ifolder-1))&">" & subfolder(ifolder-1)
  end if
  ' link alla sottocartella
  Response.Write "<img src=folder.GIF width=30 ><A HREF=" & link & "</A>
"
  ifolder=ifolder-1
loop

Set fl = fs.GetFolder(dbfile)
Set file = fl.Files
  For Each fl in file
    ' Riempie l'array files con l'elenco dei files
    files(ifiles) = files(ifiles) & fl.name
    ifiles=ifiles+1
Next

'inserisce nella variabile totalefiles il numero dei file
totalefiles = ifiles
for x =0 to totalefiles
  'verifica l'estensione di ogni file
  if Right (files(x),3) = estensione then
    picture(iImage)=files(x)
    iImage=iImage+1
  end if
next

' numero delle immagini
record = iImage-1
indice=0

Response.Write("<table width=100% border=0>")
'Viene eseguito finchè esistono file...
do while record > indice
  Response.Write("<tr>")
  i=1
  'stampa immagini per 'numerothumb' volte
  do while ((i<numerothumb+1) and(record > indice))
    Response.Write("<td> ")'inizio colonna
    Response.Write("<div align=center><a href=" & wwwpercorso & "/" & picture(indice+1) & ">")
    Response.write("[img] & wwwpercorso & [/img]</a></div>")
    Response.Write("<div align=center>" & picture(indice+1) & "</font>")
    Response.Write("</td>")
    indice = indice+1
    i=i+1
  loop
  Response.Write("</tr>")
loop

Response.Write("</table>")

Set fl = Nothing
Set sf = Nothing
set f = Nothing
Set fs = Nothing

%>

[bibuz]

MAgari dico una bestialata ma per fare una navigazione tra le cartelle e file sul server simile a quella che uno fa nel propio computer potrebbe tornarmi utile l'oggetto "map path"?

:master: