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:
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
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