(Solucionado) [VBS] como hacer este bucle?

[Flamer]

El comando del bucle:   N.InvokeVerb("Install")

y funciona calalo con uno solo y ya con el script que te puse se ase

[Eleкtro]

y funciona calalo con uno solo y ya con el script que te puse se ase

Sorry por tardar, Nada, No hay manera flamer, No me sale  

¿Nadie sabe hacer esto en python o ruby? También me serviria xD

Voy a hacer algún intento con ruby.

Salu2

Este es el code original en el que quiero realizar un FOR:

Código (vb) [Seleccionar] Expandir

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("<Folder or Share Location>")
Set objFolderItem = objFolder.ParseName("<TTF File Name>")
objFolderItem.InvokeVerb("Install")




EDITO:

Al fin he encontrado este script que hace lo que quiero

Fin de la historia 

No he logrado hacer el maldito bucle pero Gracias por vuestra ayuda y paciencia

Código (vb) [Seleccionar] Expandir

Set ofso = CreateObject("Scripting.FileSystemObject")
SourceFolder = ofso.GetParentFolderName(Wscript.ScriptFullName)

Const FONTS = &H14&

Set objShell  = CreateObject("Shell.Application")
Set oSource   = objShell.Namespace(SourceFolder)
Set oWinFonts = objShell.Namespace(FONTS)

Set rxTTF = New RegExp
rxTTF.IgnoreCase = True
rxTTF.Pattern = "\.ttf$"

FOR EACH FontFile IN oSource.Items()
    IF rxTTF.Test(FontFile.Path) THEN   
        oWinFonts.CopyHere FontFile.Path
    END IF
NEXT