Cita:
Iniciado por JonathanB
Código vb:
Ver originalPrivate Function getAppPath() As String
Dim path As String
' Obtiene el path de la aplicación
path = My.Application.Info.DirectoryPath()
' Añade el backslash en caso el ejecutable se encuentre en la raiz de una unidad
If Not path.Substring(path.Length - 1) = "\" Then
path += "\"
End If
' Devuelve la variable con la ruta completa
Return path
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim ruta As String
ruta = "firefox\setup.exe"
Shell(getAppPath() + ruta, Microsoft.VisualBasic.AppWinStyle.MaximizedFocus)
End Sub
Hola, Probe tu codigo, y me salio un error al depurar el proyecto...
La linea de Shell esta remarcada, y me sale el siguiente mensaje:
NO SE CONTROLO File NOT Found Exception...
Que hago?
Gracias por tu ayuda