Mostrar Resultados de Shell en un Textbox o Label??

[47]

Bien... espero q se entienda el asunto xD..... voy al grano, no se como, mas bien no se me ocurre como, poder "trasladar" los datos obtenidos por la ejecucion de un comando, ejemplo, llamar a "shell" y ejecutar "tasklist".... y estos resultados, poder mostrarlos en algun texbox o label de mi proyecto en VB,

Gracias de Antemano,

Saludos

47

[ranefi]

Hola 47, buen día. Aquí te dejo un ejemplo, es muy sencillo pero creo que te ayudará.

Agregar 1 control CommandButton, 1 Label e insertar el siguiente código

Código:

Private Sub Command1_Click()
    Dim Archivo As String, Archivo2 As String
    Dim NumArchivo As Integer
   
    Archivo = "C:\batch.bat"
    NumArchivo = FreeFile()
   
    Archivo2 = "C:\ranefi.txt"
    Numarchivo2 = FreeFile()
   
    Open Archivo For Output As #NumArchivo
        Print #NumArchivo, "@ECHO OFF"
        Print #NumArchivo, "CD\"
        Print #NumArchivo, "TASKLIST>ranefi.txt"
    Close #NumArchivo
   
    Shell Archivo, vbHide
1
    If Dir(Archivo2) = "" Then
        GoTo 1
    Else
        Open Archivo2 For Input As #NumArchivo
            Do While Not EOF(1)
                Line Input #1, Buff
                Todo = Todo & Buff & vbCrLf
            Loop
        Close #1

        Label1.Caption = Todo
    End If
End Sub

Private Sub Form_Load()
    Label1.AutoSize = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Kill "C:\batch.bat"
    Kill "C:\ranefi.txt"
End Sub

Espero te sirva. Y por cierto, hay mejores formas de hacerlo. Nos vemos.

PD: Presiona 2 veces el botón para que te muestre los resultados deseados.

[47]

bien!!... gracias por el code.... ahora a ver si me da la cabeza por si puedo mejorar xD.. jeje gracias por todo, Ranefi, y eso que dijiste, ya lo creo... casi siempre hay mas de alguna forma para obtener el mismo resultado, claro que siempre unas son mejores q otras

Saludos

47

P.D.: Creo que no hay problemas en q lo cierres, ya q hasta ahora se me han aclarado las dudas....