codice:
<%
Dim objFSO, objFolder, objFile

StrPath = Server.MapPath("\" & Request.QueryString("cartella"))

Set objFSO = server.createobject("scripting.filesystemobject")

Set objFolder = objFSO.getfolder(strpath)


%><select id="nome" name="nome" size="1"><%
	For Each objFile in objFolder.Files
%><option size="40" value="<%=objfile.name%>"><%=objfile.name%></option><%    	
	Next
%></select><%

    set objfolder = Nothing
    set objfso = nothing
%>