Amigos, este es mi primer tema, les cuento estoy diseñando un programa. La idea es poder abrir un .exe y almacenar la ruta. Para no tener que buscar el .exe cada ves que se abre el programa.
Tengo este código que funciona bien, hace lo que quiero, pero el problema es que ya almacenada la ruta, sigue abriendo la opción para seleccionar el .exe. Como hago para que no aparezca más, después de almacenar la ruta?
Código
Código:
Private Sub Command1_Click()
Dim Respuesta
'Verificar si existe
If Dir("C:\Program Files\KONAMI\Pro Evolution Soccer 6\PES6.exe", vbArchive) = vbNullString Then
'Si el usuario elige "Si", con el "CommonDialog" usamos "CommonDialog1.ShowOpen" para que el usuario busque el ejecutable
If Respuesta = vbNullString Then
CommonDialog1.Filter = "Archivos Ejecutables (*.exe)|*.exe"
CommonDialog1.ShowOpen
'si el usuario selecciona cancelar que salga del sub
If CommonDialog1.FileName = "" Then Exit Sub
'Si selecciona un ejecutable que lo abra
Shell CommonDialog1.FileName, vbNormalFocus
End If
Else
'En caso de que en la comprobación si exista el ejecutable que lo abra.
Shell "C:\Windows\notepad.exe", vbNormalFocus
End If
Open "C:\RutaApp.txt" For Output As #1
Print #1, CommonDialog1.FileName
Close #1
Me.WindowState = 1
End Sub
Muchas gracias amigos