Va perfecto tu codigo, yo lo tenia casi solo me faltaba quitar la extension, yo lo tenia asi.
Código PHP:
set fso = server.createobject("Scripting.FileSystemObject")
set VarRuta = fso.GetSpecialFolder(0)
VarRuta = VarRuta & "\Fonts"
set VarCarpeta = fso.GetFolder(VarRuta)
response.write("<select name='listfunte' size='1' class='listas'>")
For each VarFichero in VarCarpeta.files%>
<option value="<%=VarFichero.Name%>"><%=VarFichero.Name%></option><%
next
set fso = nothing
Bueno como te decia me quedaba quitar la extension, pero tu codigo esta muxo mejor, gracias por todo.
