[Duda] Abrir archivo en Vb.Net

Iniciado por DeSsy, 24 Enero 2011, 16:04 PM

0 Miembros y 1 Visitante están viendo este tema.

DeSsy

Hola!!
Estoy haciendo una aplicación en Vb.Net y necesito que me ayudeis en el código, en si es fácil pero la parte dificil viene cuando tengo que abrir una ruta, es decir, tengo un TextBox1 que su propiedad Text tiene esta ruta "D:\Carpetas\Picture's\[Picture]JeSsy" y tengo un Button2 que al darle tendrá que abrir el Text que tenga el TextBox1. Bueno os dejo el codigo que llevo...

Código (vbnet) [Seleccionar]
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       'Busca el archivo deseado para guardarlo en el TextBox1.Text
       OpenFileDialog1.DefaultExt = "sorpresa"
       OpenFileDialog1.Filter = "sorpresa files (*.sorpresa)|*.sorpresa"
       OpenFileDialog1.FilterIndex = 1
       If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
           TextBox1.Text = String.Empty
           TextBox1.Text = OpenFileDialog1.FileName
       End If
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       'Abre el archivo seleccionado
       If TextBox1.Text = "" Then Exit Sub
       MsgBox("Good Play =)!")
   End Sub
End Class


Si alguien me dice como se lo agradeceré...

[D4N93R]

Hola,

Disculpa pero acá no se hacen tareas. Por favor edita el post y postea una pregunta o duda para que el tema no sea bloqueado.

Saludos.

DeSsy

Perdona, pero solo pregunte como abrir un archivo en Vb.Net...

En fin, olvídalo, buscaré ayuda por otros sitios, elimina el post si quieres..

Un beso.

.::IT::.

Quieres abir un archivo .sorpresa?? que formato tienen esos archivos??
Simplemente .::IT::.

DeSsy

Cualquier formato, era un ejemplo, es .exe

.::IT::.

Cita de: DeSsy en 24 Enero 2011, 19:16 PM
Cualquier formato, era un ejemplo, es .exe

Creo que ya entendi tu no quieres abrirlo si no ejecutar un archivo o abrirlo con el programa asociado verdad??

pon esto en el button2

Código (vbnet) [Seleccionar]
If TextBox1.Text = "" Then Exit Sub
        Dim myFile As ProcessStartInfo
        myFile = New ProcessStartInfo(TextBox1.Text)

        Process.Start(myFile)
Simplemente .::IT::.

DeSsy