Programación General > Visual Basic 6.0 e inferiores

 Re: Ayuda con un VBS

(1/1)

pelotita:
Estoy creando un Visual Basic script, todo marcha bien en este caso se crea un archivo de texto y un Visual basic script observen el codigo:

Set multi = CreateObject("scripting.filesystemobject")
Set ply = multi.createtextfile("c:ply.txt")
ply.writeline "dim x"
ply.writeblanklines "1"
ply.write "x="
ply.write "ok"
ply.writeblanklines "1"
ply.writeline "msgbox(x)"
ply.Close
MsgBox "Listo para cambiar el archivo?"
multi.copyfile "c:ply.txt", "c:ply.vbs"
MsgBox "Listo para ejecutar el archivo VBS?"
Set exe = CreateObject("wscript.shell")
exe.run "c:ply.vbs"

Lo que me interesaria saber es como puedo poner otro texto dentro de ply.vbs que no sea el mismo que sale en ply.txt porque no entiendo porque en ply.txt y ply.vbs sale el mismo texto despues que lo ejecuto, quiero ponerle otro texto a ply.vbs como le hago? no encuentro manera para hacerlo.

JuanK:
no se nada de vscript...bueno algo pero no mucho:P asi que puede que me equivoque pero el error esta en esta linea:

multi.copyfile "c:ply.txt", "c:ply.vbs"

esto copia el contenido de ply.txt en ply.vbs
por eso siempre van a terminar iguales
para colocar texto extra deberias abrir ply.vbs  no crearlo como lo hiciste con ply.txt, y luego sumarle cadenas al final.
seguramente la instrucion es algo asi:

Set op = multi.opentextfile("c:ply.vbs")
o sino
Set op = multi.loadtextfile("c:ply.vbs")

suerte.

Navegación

[0] Índice de Mensajes