Hola

Necesito una ayudita con este script

Me surgen 3 problemas:

el primero es que no se como definir el "CurrentDir" osea para que el script trabaje en el directorio actual.
el segundo es que tampoco se como definir ParseName("*.TTF") para que se tome en cuenta todos los archivos .ttf del directorio corriente
Y el tercer problema es, que una vez resuelto los 2 primeros, no sabría como aplicarlo al For xD

set winsh = CreateObject("WScript.Shell")
set winenv = winsh.Environment("Process")
windir = winenv("WINDIR")
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("%CURRENTDIR%")
Set objFolderItem = objFolder.ParseName("*.TTF")
 
For each N in objFolderItem
   N.InvokeVerb("Install") 
next

Gracias...

Explica que es lo que queres hacer con el script porque me parece que estas haciendo cosas de mas.

Lo que quiero hacer es un script que instale los archivos de fuentes de texto .ttf  a la carpeta fonts de windows.

El script original es casi identico solo le he modificado 3 palabras, porque el original trabajaba solamente sobre 1 archivo .ttf, osea, el script funcionaba, pero necesito que trabaje con todos los archivos .ttf del directorio donde ejecute el vbs.



Te lo agradezco pero tu script solo funciona con el primer archivo, es decir, solo muestra un msgbox del primer archivo que encuentra en "C:\Windows\archivo.ttf"

He intentado modificarlo pero es bastante dificil para mi:

De todas formas eso no me serviría, no estoy definiendo el directorio actual como se haría en batch por ejemplo así:

Pero ahora viendo tu script al menos ya se como definir el tipo de archivo "ttf", gracias.

No pretendo que me lo hagan todo, si alguien me diera esta información podría intentar modificarlo yo:

- definir el "CurrentDir" osea para que el script trabaje en el directorio actual en vez de %systemroot% en tu script

- Y que el "FOR" no se detenga en el primer resultado, Aunque esta información creo que debe estar en el tutorial de novlucker, pero sin la primera información me quedo en las mismas


Gracias a los dos

Porque tiene que ser vbs? si lo sabes hacer en batch.

Digo esto porque yo haria simplemente esto:

Dim shell
 
Set shell = CreateObject("WScript.Shell")
 
shell.run "copy /Y *.ttf C:\*.ttf" , vbhide
 
 

O algo asi y listo xD a no ser que tenga que ser vbs puro, pero vamos que funcionar funciona, no se porque no lo pensaste, ya me diras xD

edit: Creo que no anda, pero ta el mensaje espero que te llegue xD

modificastes la linea asi
y aber si te entendi los archivos .ttf estan en esa carpeta y tu los quieres instalar
si estan en la carpeta fonts el script deve de funsionar y mostrarte el msgbox y sino es el windows
con respecto ala instalacion no se como see instalan o que comandos se usan pero si medises que comando los instala te podre ayudar eso creo
saludos flamer y sus angeles del infierno y sus traficantes de muerte