miren este es el codigo para ejecutar archivos desde VB:
primero declaramos las funciones.
____________________________________________
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
____________________________________________
Luego creamos dos botones uno que es con el que vamos a buscar el archivo que deseamos ejecutar.
____________________________________________
Private Sub Command1_Click()
Command2.Enabled = False
Label1.Caption = ""
CommonDialog1.DialogTitle = "Buscar archivo... Cortesia de LULU"
CommonDialog1.FileName = ""
CommonDialog1.Filter = "Todos los archivos|*.*"
CommonDialog1.InitDir = "c:\"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Label1.Caption = CommonDialog1.FileName
Command2.Enabled = True
Else
Label1.Caption = "Ninguna Archivo Cargado"
End If
End Sub
____________________________________________
Luego creamos el boton que es el que ejecutara el archivo antes buscado y que se encuentra cargado en el comand dialog (la ruta), si al buscar el archibo le damos cancelar y no seleccionamos ningun archivo este sacara un mensaje y no activara el command2.
____________________________________________
Private Sub Command2_Click()
Dim res As Long
res = ShellExecute(Me.hwnd, "Open", Label1.Caption, "", "", 1)
End Sub
____________________________________________
Listo este es todos el codigo si desehan pueden editarlo y poner sus dotes de programadores por ejemplo pueden poner en el load que ejecute una ruta especifica (Un virus jejejeje), mentiras es facil miren el codigo y veran que no es una cosa del otro mundo.
Suertex.
Pd. Espero mis punticos Karma Gracias.