Hello @dilettante,
Thanks for the reply, Yes you are right. I want to get the StdOut of the command Prompt(Hide).
See the code below :
Regards,Code:Function ejecutar_Dos(Comando As String) As String Dim oShell, oExec, oPid Set oShell = CreateObject("Wscript.Shell") DoEvents Set oExec = oShell.Exec("%comspec% /c " & Comando) oPid = oExec.ProcessID ejecutar_Dos = oExec.StdOut.ReadAll() DoEvents Me.SetFocus End Function




Reply With Quote