{Resuelto} [vbs] Problema con autocopiar

[xassiz_]

Código [Seleccionar] Expandir

set autocopia = createobject("scripting.filesystemobject")
autocopia.copyfile "wscript.scriptfullname", "%userprofile%\vbs.vbs", true

Consegui esto.

Pero da error...

Linea 2 caracter1

wtf?

[Novlucker]

Esto es vbs no batch, y no puedes utilizar las variables de sistema así como así ..

Código (vb) [Seleccionar] Expandir

set autocopia = createobject("scripting.filesystemobject")
set objshell = createobject("wscript.shell")
userprofile = objshell.expandenvironmentstrings("%userprofile%")
autocopia.copyfile wscript.scriptfullname, userprofile & "\vbs.vbs", true

Debes de hacer uso de expandenvironmentstrings para "expandir" la ruta que contiene la variable de sistema, ya luego lo almacenas en una variable (como he hecho), o bien lo utilizas directamente

Saludos

[xassiz_]

Ok, entendido

[Edito]

Copiador.vbs

Código [Seleccionar] Expandir

Set autocopia = createobject("scripting.filesystemobject")
set varentorno = createobject("wscript.shell")
userprofile = varentorno.expandenvironmentstrings("%userprofile%")
autocopia.copyfile "wscript.scriptfullname", userprofile & "\copiado.vbs", true

Error en la linea 4, el archivo no existe

Como que no existe? Se supone que lo copio para que exista (...)

[Novlucker]

No me había dado cuenta ....

Estas poniendo wscript.scriptfullname entre comillas, así que lo toma como texto, y no es texto, es una variable/funcion, he modificado mi post anterior

Saludos

[xassiz_]

Ok, entendido