Aiuto modifica script che mostracartelle sottocart. e file delle directory sul server

[Matrox2]

Ciao ragazzi,
potete aiutarmi a modificare questo script???

<%
set fs=server.createobject("scripting.filesystemobject ")
set folderfs=fs.getfolder(server.mappath("/NOMECARTELLA"))

//elenco sottocartelle
for each x in folderfs.SubFolders
response.write x.name &"
"
next//elenco file
for each f in folderfs.Files
response.write ""& f.name &"
"
next
set folderfs=nothing
set fs=nothing
%>

In pratica mi fa apparire il file presente in una certa cartella del server da me scelta rendendolo scaricabile, e fin qui tutto ok.
A me servirebbe invece poter vedere oltre ai files, anche le cartelle potendole aprire per poi vedere tutte le sottocartelle ecc... sempre per arrivare al file e poterlo scaricare.
Ho fatto diverse prove ma non riesco....
Devo creare una sorta di database di file, suddivisi in cartelle e sottocartelle.
Spero di essere stato chiaro......grazie in anticipo...

Matteo

[lucalicc]

non so sei sia quello che ti serve, ma puoi provare a
vedere l'applicativo asp Webexplorer che nella versioe
lite è gratuito
http://www.gleamtech.com/products/we...p-file-manager
luca

[optime]

matro, devi fare una funzione ricorsiva. cerca in questo forum, se ne è parlato anche di recente

[Matrox2]

Originariamente inviato da optime
matro, devi fare una funzione ricorsiva. cerca in questo forum, se ne è parlato anche di recente

Ragazzi grazie per l'aiuto, ho letto e riletto i post inerenti e ho trovato di grande aiuto i tuoi e quelli di mems, ora ho risolto per quanto riguarda la visualizzazione di cartelle e di sotto cartelle e relativi files.
Ora però dovrei rendere accessibili le varie cartelle e sottocartelle e poter effettuare i download dei files che si trovano all'interno.
Ho provato le varie soluzioni proposte ma mi creano sempre errori.

Ho provato come proposto da te ad inserire <a href=""> ma non funge, premetto che sto usando aruba ma con altre funzioni non ho problemi di lettura e scrittura (per il discorso pubblic).

Il codice che sto usando è questo:

<%
function buildTree(theFSO, thePath)
set theFolder = theFSO.getFolder(thePath)
set theSubfolders = theFolder.subfolders
for each subfolder in theSubfolders
response.write "<ul>" & vbCrLf
response.write "[*]" & subfolder.name & vbCrLf
call buildTree(theFSO, subfolder)
response.write "" & vbCrLf
response.write "[/list]" & vbCrLf
next
set theSubfolders = nothing
set theFiles = theFolder.files
response.write "<ul>" & vbCrLf
for each file in theFiles
response.write "[*]" & file.name & "" & vbCrLf
next
response.write "[/list]" & vbCrLf
set theFiles = nothing
set theFolder = nothing
end function

path = "/"
path=mid(server.mappath(Request.ServerVariables("P ATH_INFO")),1,instrrev(server.mappath(Request.Serv erVariables("PATH_INFO")),"\"))

set fso = server.createObject("Scripting.FileSystemObject")
response.write "<ul>" & vbCrLf
response.write "[*]Root" & vbCrLf
call buildTree(fso, path)
response.write "" & vbCrLf
response.write "[/list]" & vbCrLf
set fso = nothing

%>

Grazie per l'aiuto!!
Matteo

[optime]

traduci in informatichese "non funge"

[Matrox2]

scusami "non funge": non funziona...

Ciao

[optime]

Originariamente inviato da Matrox2
scusami "non funge": non funziona...

Ciao

ok, ciao