Carissimi
con questo script visiono in una select le cartelle indicate nella strPath
oltre a quelle vorrei vedere anche le sottocartelle, come posso fare?codice:<% Dim objFso, objFolder, objSubFolders, strFolder, strSubFolder strPath = "/data/uploaddocuments/" Set objFso = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) Set objSubFolders = objFolder.SubFolders Response.write("<select name=""SubFolders"" id=""SubFolders"">") Response.Write("<option value=""Seleziona"">Seleziona</option>") For Each strSubFolder in objSubFolders Response.Write("<option value="""&strSubFolder.name&""">"&strSubFolder.name&"</option>") Next Set objFso = Nothing Set objFolder = Nothing Set objSubFolders = Nothing %>
Grazie
G.

Rispondi quotando
