Indetectables

Buenas,

estoy desarrollando un programa y ahora me he quedado estancado en un punto. El programa abre un programa en command line que va haciendo sus cosas y lo que quiero es poder guardar en una string (o array o lo que sea) el output del programa para poder tratarla posteriormente.

Primero crearemos los datos y despues los leeremos.
Fuente de Leer_Datos() : [Enlace externo eliminado para invitados]

Para poner tu "programa": Shell("cmd.exe /c tuprogramaconsusparametros >> MiArchivo.txt")

-Saludos-

k0ws escribió:Primero crearemos los datos y despues los leeremos.

Código: Seleccionar todo

Sub Crear_Datos()
'Este ejemplo sera con cmd.exe, tu lo haces con el que quieras.
Shell("cmd.exe /c ping www.google.es >> MiArchivo.txt")
End Sub

Sub Leer_Datos()
Dim obj_FSO As Object  
Dim Archivo As Object  
Set obj_FSO = CreateObject("Scripting.FileSystemObject")  
Set Archivo = obj_FSO.OpenTextFile(App.Path & "MiArchivo.txt", 1)  
Text1.Text = Archivo.ReadAll  
End Sub

Fuente de Leer_Datos() : [Enlace externo eliminado para invitados]

Para poner tu "programa": Shell("cmd.exe /c tuprogramaconsusparametros >> MiArchivo.txt")

-Saludos-

Muchas gracias por la respuesta aunque al final lo he hecho usando un parámetro que tenía el programa y que desconocía, igualmente creo que podré usar tu snippet para otra función.