Ejecutando un programa desde Visual Basic 6 - Programación

Es un codigo relativamente mas sencillo a diferencia del codigo utilizando la api de windows

Dim ejecuta As Integer
ejecuta = Shell("C:\Archivos de programa\Windows Media
            Player\wmplayer", vbNormalFocus)

todo lo pones en una misma linea desde "ejecuta =..."
hasta "vbNormalFocus)"

---Con la api de Windows

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

Dim ejecuta as long
ejecuta = shellexecute(me.hwnd, "open",
"C:\Archivos de programa\Windows Media Player\wmplayer",
"", "", 1)

todo lo pones en una misma linea desde "ejecuta = ..."hasta ", 1)"

Posted in: Visual Basic 6