Originariamente inviato da tony83
...Ovviamente per far ciò ho già messo una password alla pagina!
Ovviamente
eccoti un esempietto che dovrai modificare e soprattutto capire
codice:
<%
dim fso,fld,sfld,fl,actualfolder
set fso=server.createObject("scripting.filesystemobject")
if request.querystring("folder") then
actualFolder=repsonse.querystring("folder")
else
actualFolder=mid(request.servervariables("PATH_INFO"),1,instrrev(request.servervariables("PATH_INFO"),"/")-1)
end if
response.write("<hr>"& server.mappath(actualFolder) &"<hr>")
set fld=fso.getfolder(server.mappath(actualFolder))
response.write("Cartelle!
")
for each sfld in fld.subfolders
response.write(sfld.name & "
")
next
response.write("<hr>Files!
")
for each fl in fld.files
response.write(fl.name & "
")
next
%>
Un consiglietto, visto che programmi VB puoi guardare tutte le proprietà e i metodi del FileSystemObject da VB (ricordati di mettere "Microsoft Scripting Runtime" nei riferimenti)