Listar fuentes instaladas

[Radar]

Hola a todos a ver si me podeis echar una manilla, lo que me gustaria saber como puedo listar en un combo la fuentes instaladas en el servidor con el componente FileSystemObject, creo que es con GetSpecialFolder pero no se muy bien como va, a ver si hay alguien que haya intentado hacer algo parecido y pueda echarme un cable.

Venga gracias.

[orharo2003]

<select>
<%
set cl=createobject("scripting.filesystemobject")
set fuente=cl.GetFolder("unidad:\carpeta_windows\Fonts ")
for each archivofuente in fuente.files
%>
<option><%=mid(archivofuente,instrrev(archivofuent e,"\")+1,instrrev(mid(archivofuente,instrrev(archi vofuente,"\")+1),".")-1)%>
<%next%>

[Radar]

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.