Como abrir un archivo de un programa previamente instalado

[FRAN777]

Soy nuevo en el lenguaje de Visual Basic ....
por favor quisiera que alguien me indique que codigo debo colocar para ejecutar un archivo que esta asociado a un programa que previamente ya este instalado en mi PC.....
gracias

PD: Estoy usando Visual Basic 6.0

[jc_moty]

A ver, hasta donde entiendo queres que con hacer doble click a un archivo, este se habra con tu aplicacion creada en Visual Basic 6.0
Antes que nada tendrias que registrar la extension, y luego tu aplicacion tendria que abrir el archivo:

Código:

' Esto va en el Sub Main o en el evento Load del Form Principal:
If Len(Command) > 0 Then
    archivo = Command
    ' Luego van las sentencias necesarias para abrir el archivo
End If

Saludos

[FRAN777]

Gracias por la pronta respuesta ...pero esa no era la pregunta ...creo que la redacte mal....
a ver lo intento de nuevo:

Tengo un grupo de 24 archivos de extension ".ham" que se abren con un programa que ya tengo instalado en mi ordenador, todos los dias tengo que hacer 24 clicks seguidos para que estos archivos carguen en el programa que maneja estas extensiones .ham......
lo que quiero es hacer un programita rapido en Visual basic con un simple boton de comando, que al hacer Click en el me ejecute los 24 archivos de manera automatica..... ESO ES LO Q QUIERO ...
La duda es saber las 24 lineas de codigo que debo escribir en el evento Click de ese boton...
es open file ??? open Source ....no se como es la sintaxis ,,,
antes usaba Visual Basic 5.0 y resolvia con las ayudas del propio programa, deje de usar visual Basic por un tiepo y ya he olvidado muchas cosas ,,, ahora instale el Visual Basic 6.0 pero estye no trae ahora las ayudas :S.....
ayudame please ...!!!!

[albertovicat]

Te conviene 100 % conseguirte las MSDN de VB6, son 2 CDs. Es una ayuda completísima para el Visual Studio 6.
Te las pasaría, pero tengo conexión telefónica y demoraría horas para cada CD.
Suerte

[FRAN777]

buen dato ...... gracias ...... tratare de conseguirlo ....... sabes de algun sitio donde descargarlo ? y me puedes ayudar con la pregunta formulada de el open Source ?

[Insomnia]

Hola

En un modulo declara la función ShellExecute (copia y pega el codigo en un modulo):

Código:

Public 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 en el botón, llama a la función incluyendo la ruta completa donde se encuentra el archivo

Código:

Resul = ShellExecute(Me.hwnd, "Open", "C:\prueba1.ham", "", "", 1)
Resul = ShellExecute(Me.hwnd, "Open", "C:\prueba2.ham", "", "", 1)

P.D. Declara en General Resul como Long

Código:

Dim Resul As Long

--Saludos--