Hola, a todos estoy empezando en VBS y quiero hacer que un programa me pregunte dos datos y los vaya copiando en un TXT.
Eso lo hago, pero el problema es que necesito que llegue a DIEZ y cuando sea diez me diga que esta listo y copie los datos el porta papeles.
Lo que llevo
Set objfso = createobject("scripting.filesystemobject")
Set objshell = createobject("wscript.shell")
Set PedidoDigitado = objfso.createtextfile("C:\Pedido_Digitado.txt",True) 'creamos el archivo
CodSAP = InputBox("Ingrese Codigo SAP", "CARRO LLENO", "Cod SAP")
CantMat = InputBox("Ingrese Cantidad", "CARRO LLENO", "Cantidad")
PedidoDigitado.writeline CodSAP & " " & CantMat
PedidoDigitado.close
Me guie por la guia de Novlucker.
Ojala alguien me pueda decir como lo hago, o me diga donde buscar.
Muchas gracias de ante mano.
Atento a sus comentarios.
Saludos