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