Abrir .exe desde VB

[akss_wm]

Holas, kizas es muy facil para uds..  pero lo que quiero es hacer esto simple, solo abrir desde mi programa un ejecutable, por ejemplo en mi programa clikear un boton y abrir por ejemplo el Winamp..  es solo un ejemplo, osea mi idea es poder ejecutar cualkier archivo desde mi programa, kual es el codigo para eso?  .. gracias y Saludos..

[akss_wm]

Bueno me respondo solo jeje..

Shell "C:\Archivos de programa\MSN Messenger\msnmsgr.exe"

de esta forma abro el MSN Messenger por ejemplo..    jiji

pero me di cuenta que solo me abre los archivos .exe  ..  pero si quiero abrir un  .txt   o  .doc   etc etc..  porke con ese codigo no funciono, como abro ese otro tipo de archivos?  GraxX

[Mad Antrax]

prueba con esto:

Código [Seleccionar] Expandir


Dim x

x = Shell("notepad C:\hola.txt", vbNormalFocus) 'Abre un TXT
x = Shell("explorer http://www.google.com", vbNormalFocus) 'Abre una web
x = Shell("netstat > C:\adios.txt", vbNormalFocus) 'Ejecuta un comando msd y lo vuelca en un TXT


[Kizar]

Api-guide

Código [Seleccionar] Expandir


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 Form_Load()

ShellExecute Me.hwnd, vbNullString, "mailto:KPDTeam@Allapi.net", vbNullString, "C:\", SW_SHOWNORMAL
End Sub