[Solucionado] [VBS] Duda sobre los argumentos

[Novlucker]

Si podría agregar eso pero no tiene gracia, te lo pongo desde el ms-dos para que lo entiendas mejor

Código (dos) [Seleccionar] Expandir

E:\vbs>echo wscript.echo wscript.arguments.count > Mensaje.vbs
E:\vbs>echo wscript.echo wscript.arguments(0) >> Mensaje.vbs
E:\vbs>type Mensaje.vbs
wscript.echo wscript.arguments.count
wscript.echo wscript.arguments(0)

E:\vbs>cscript/nologo Mensaje.vbs "Soy un argumento!"
1
Soy un argumento!

E:\vbs>echo wscript.echo wscript.arguments(1) >> Mensaje.vbs
E:\vbs>type Mensaje.vbs
wscript.echo wscript.arguments.count
wscript.echo wscript.arguments(0)
wscript.echo wscript.arguments(1)

E:\vbs>cscript/nologo Mensaje.vbs "Soy el primer argumento" "y yo el segundo"
2
Soy el primer argumento
y yo el segundo

E:\vbs>
Lo que intentaba decirte con esto era que directamente hicieras todo con vbs
El code que has dejado en tus primeros mensajes solo necesita ligeros arreglos

Saludos

[SuperDraco]

Antes no entendia lo que era un argumento, ahora que ya lo entiendo no se aplicarlos en vbs  

A ver si ya puedo resolver este problema de una vez, tengo mi script así:

Código (DOS) [Seleccionar] Expandir

Set objshell = createobject("wscript.shell")
wscript.arguments.count
wscript.arguments(0)
wscript.arguments(1)
Set prueba = objshell.run("cmd /k (1) -h & pause")
WScript.Quit


("cmd /k (1) -h & pause")

El (1) ha sido mi intento para aplicar elargumento 1, pero no se hacerlo...


A lo que me refiero es que para indicar un argumento en batch basta con poner en el script  %1 asi llamas al argumento 1, pero en VBS como se hace eso?

[SuperDraco]

con este script por fin me oculta los archivos, pero está mal, porque me oculta toda la carpeta si abro el vbs, debería ocultarme solo ese archivo, el vbs...

Código [Seleccionar] Expandir

Set objshell = createobject("wscript.shell")
wscript.arguments.count
Set objArgs = WScript.Arguments
for each file in objArgs
objshell.run("cmd /k attrib +h & pause")
next
WScript.Quit


Osea, ese script lo guardo en "c:\1.vbs"
pero al abrir el archivo, todos los archivos de C:\ se ocultan...

[Novlucker]

Quería que aprendieses algo, pero como no hay remedio

Código (vb) [Seleccionar] Expandir

Set objfso = Createobject("scripting.filesystemobject")
Set oFile = objfso.getfile(wscript.arguments(0))
oFile.attributes = 2

Saludos

[SuperDraco]

Quería que aprendieses algo, pero como no hay remedio

Código (vb) [Seleccionar] Expandir

Set objfso = Createobject("scripting.filesystemobject")
Set oFile = objfso.getfile(wscript.arguments(0))
oFile.attributes = 2

Saludos

Aprendo más fijandome en tus scripts que intentando chorradas por mi mismo xDD
Eso si, muy poco a poco  

Funciona perfecto! y encima sin llamar a la consola (Lo del ofile.attributes lo conocia pero no sabía aplicarlo tampoco...), me gusta me gusta, que haría yo sin ti jajaja

gracias nov


EDITO: iba a preguntarte otra cosa pero ya lo he encontrado

para las carpetas es:

Código [Seleccionar] Expandir

Set oFile = objfso.getfolder(wscript.arguments(0))