select size="1" name="nomefile">
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = fs.GetFolder(Server.MapPath("public/UPLOAD/files/"))
For Each x In Folder.Files
%>

<option value="<%=x.Name%>"><%=x.Name%>
</option>
<%
Next
Set Folder = Nothing
Set fs = Nothing
%>
</select>

:metallica

Risolto