• Domingo 22 de Diciembre de 2024, 15:20

Autor Tema:  Re: Ayuda con un VBS  (Leído 798 veces)

pelotita

  • Nuevo Miembro
  • *
  • Mensajes: 21
    • Ver Perfil
Re: Ayuda con un VBS
« en: Miércoles 23 de Abril de 2003, 20:08 »
0
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

  • Miembro de ORO
  • ******
  • Mensajes: 5393
  • Nacionalidad: co
    • Ver Perfil
    • http://juank.io
Ayuda con un VBS
« Respuesta #1 en: Miércoles 23 de Abril de 2003, 22:56 »
0
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.
[size=109]Juan Carlos Ruiz Pacheco
[/size]
Microsoft Technical Evangelist
@JuanKRuiz
http://juank.io