[RESOLVED] Shell CMD Text output format

[beic]

Hi there,

Is it possible to get Multi-line text output from the command line into the TextBox and not all in one line?

Used code:

Dim stCmdInText As String
 
 Dim objShell, objExecObject As Object
 
 stCmdInText = ""

 Set objShell = CreateObject("WScript.Shell")
 
 Set objExecObject = objShell.Exec("cmd /c ping -n 3 -w 1000 192.168.0.131")
 
 Do While Not objExecObject.StdOut.AtEndOfStream
  stCmdInText = stCmdInText & objExecObject.StdOut.ReadLine()
  Text1.Text = stCmdInText
  DoEvents
 Loop

Output result:


Thank you for your support!