Tema: Ayudeme
Ver Mensaje Individual
  #4 (permalink)  
Antiguo 30/12/2008, 22:24
franko1809
 
Fecha de Ingreso: enero-2008
Ubicación: Lima - Perú
Mensajes: 1.127
Antigüedad: 16 años, 3 meses
Puntos: 10
Respuesta: Ayudeme

No se entiende del todo parece que necesitas el control common dialog, cheka como funciona http://www.recursosvisualbasic.com.a...mmondialog.htm

Para ejecutar un programa puedes usar la api shellExecute
Código:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Private Sub Command3_Click()

ShellExecute Me.hwnd, vbNullString, "C:\Archivos de programa\programa.exe", vbNullString, "C:\", SW_SHOWNORMAL

End Sub
ó puedes usar la funcion shell de visual basic 6.0

Código:
Private Sub Command5_Click()
Dim Ruta As String
Ruta = Shell("C:\Archivos de programa\FileZilla\Filezilla.exe", vbMaximizedFocus)
End Sub