Ciao a tutti
ho scritto questo rudimentale script per visualizzare le directory e i files di una determinata
cartella sul server. Vorrei però rendere un po più fruibile creandogli intorno uno stile tipo accordion ma dopo aver adattato numerosi script che ho trovato in giro non ci sono riuscito... sapreste darmi una mano?
__________________________________________________ ______
percorso_0 = "../public/"

function apriCartella(val)
cartella = percorso_0 & val
Set fso = CreateObject("Scripting.FileSystemObject")
Set apri = fso.GetFolder(Server.MapPath(cartella))

for each x in apri.SubFolders
%>
<div id="folder">
<ul>[*]
<h1><%=x.name%></h1>
<ul>[*]
<%=apriCartella(cartella&"/"&x.name)%>
[*]
<ul id="file">
<% sottoCartella(cartella&"/"&x.name)%>[/list]
[/list]
[/list]
</div>
<%

next
Set fso = nothing
Set apri = nothing
end function

function sottoCartella(sc)
Sotto_cartella = sc

alfa = "0 1 2 3 4 5 6 7 8 9 a A b B c C d D e E f F g G h H i I j J k K l L m M n N o O p P q Q r R s S t T u U v V y Y z Z x X"
arr_alfa = Split(alfa, " ")

estensione = ".doc,.docx,.xls,.xlsx,.pdf,.tiff"
arr_estensione = Split(estensione, ",")

Set fsoSC = CreateObject("Scripting.FileSystemObject")
Set apriSC = fsoSC.GetFolder(Server.MapPath(Sotto_cartella))

for i = 0 to Ubound(arr_alfa)
for each file in apriSC.files
If arr_alfa(i) = Left(file.name, 1) Then
for e = 0 to Ubound(arr_estensione)
if Right(file.name, len(arr_estensione(e))) = arr_estensione(e) then
%>[*]<%=file.name%>
<%
end if
next
end if
next
next
Set fsoSC = nothing
Set apriSC = nothing
end function

percorso_new = request.QueryString("percorso_new")

if percorso_new = "" then
percorso_1 = request.QueryString("User_ID")
percorso_new = percorso_1
else
percorso_new = percorso_1
end if

response.Write(percorso_new & "
")
percorso_new = percorso_new
apriCartella(percorso_new)