Visual Basic - Abrir archivos de mi aplicación

Ayer hice esta pregunta, pero creo que no me explique lo suficiente....

Intentaré explicarlo mejor..

1. He creado un programa que genera un tipo especifico de archivo p.e. *.001
2. En el registro de windows he enlazado este tipo de archivo con mi programa, por lo que al dar doble click sobre cualquier archivo *.001, se abre mi programa, pero no consigo que se cargue el archivo en cuestion...

alguien sabe como solucionarlo?

Gracias

Use el Command() para extraer los parametros que se le hubiesen pasado a tu aplicacion.

El Command() te regresa un String conteniendo todos los parametros que se hubiesen enviado a tu aplicacion. Este String deberas procesarlo para validar que datos te estan enviando especificamente, usando Instr(), Mid(), etc, para extraer los diferentes datos que se recibieron ...

En tu caso, por lo que mencionas, el parametro que se le estaria pasando a tu aplicacion seria el nombre completo del archivo, o sea, un solo dato, por lo que solo tendrias que tomar el String resultante y procesalo como un nombre de archivo ...


Entonces algo como esto te serviria ...

En tu seccion de inicio (Main.bas o el _Load de tu formulario principal) ... Suponiendo que sea en tu formulario principal ...

Private Sub Form_Load()
Dim sFileName As String

sFileName = Command()

If Trim(sFileName) <> "" Then
Call Procedimiento_Para_Archivo( sFileName )
End If

... bla bla bla

End Sub

'''

Y en un modulo .BAS o en tu propio formulario principal, o donde debiera estar (esto tu lo tienes que definir), algo como este ejemplo

Public Sub Procedimiento_Para_Archivo( Nombre_Archivo As String )

If DIR(Nombre_Archivo) <> "" Then
MsgBox "El archivo a procesar es " & Nombre_Archivo
Else
MsgBox "El archivo " & Nombre_Archivo & " No existe !"
End If

End Sub

''''

Para que puedas probar el funcionamiento desde el IDE (sin tener que generar el .EXE), ve a Project/Properties y en la pestaña MAKE, en el campo "Command Line Arguments" pones el nombre de archivo que desees, o los parametros que quieras probar ...
Despues de lo anterior, simplemente ejecutas tu aplicacion (F5 o CTRL-F5) ...

Muchas gracias Semper, funciona perfecto!!!