¿Cómo muestro un documento de texto en un TexBox ? y ota duda mas....

[][kevin][]

aparte de esta duda... tengo otra...

por ejemplo para hacer un simple programa... que haga ping a la ip que quieras....

-primero creo un texbox donde se introducirá la ip
-luego un boton llamado "Ping"
-Despues dentro del boton Ping:

shell ("cmd.exe /c echo ping Form1.Text1  > ping.txt") , vbHide


que estaría mal aquí? como lo corrijo?

[Punk-Rock]

Código:

shell ("cmd.exe /c echo ping " & Form1.Text1 & " > ping.txt") , vbHide

Salu2

[ranefi]

aparte de esta duda... tengo otra...

por ejemplo para hacer un simple programa... que haga ping a la ip que quieras....

-primero creo un texbox donde se introducirá la ip
-luego un boton llamado "Ping"
-Despues dentro del boton Ping:

shell ("cmd.exe /c echo ping Form1.Text1  > ping.txt") , vbHide


que estaría mal aquí? como lo corrijo?

Para mostrar un documento de texto en un TextBox debes copiar el siguiente código.

Agregar 1 control CommandButton, 1 TextBox con la propiedad MultiLine establecida a True e insertar el siguiente código en un...

Formulario

Código:

Private Sub Command1_Click()
On Error GoTo ups
    Dim RutaConArchivo As String, Contenido As String
    Dim NumeroArchivo As Integer
   
    RutaConArchivo = "C:\Archivo.txt"
    NumeroArchivo = FreeFile()
   
    Open RutaConArchivo For Input As #NumeroArchivo
        Contenido = Input(LOF(NumeroArchivo), 1)
    Close #NumeroArchivo
   
    Text1.Text = Contenido
    Exit Sub
ups:
    MsgBox "No existe " & RutaConArchivo, vbCritical, "Ejemplillo"
End Sub

Espero te sirva. Nos vemos.