Asociar Archivos y que los abra el programa.

[{_The_Alwar_}]

Tengo una extension asociada a mi programa, en un procedimiento  las acciones para abrir el archivo, ¿pero como hago para que cuando quiera abrir un archivo.gpa (mi extension es .gpa) me ejecute ese procedimiento y con la ruta del archivo que me pase el SO?? esque si le digo a abrir con el programa me sale en blanco y no me carga el archivo con asociarlo directamente, me supongo que tendre que programarlo.

Saludos! si no entienden mi problema pregunten

[Slasher-K]

La función Command$ te devuelve los parámetros de la linea de comandos.

Saludos.

[{_The_Alwar_}]

Oks, cuando se abre el archivo, ¿que contiene la linea de comandos?? ¿¿en que evento e de poner esto?? en el form principal en load valdria? ¿o en un sub main de un modulo? Ahora que dices lo de la linea de comandos, yo me preguntaba que hacia falta, o que habia que poner para que cuando tu añades a la ruta del exe algo se ejecute el exe de otra forma, me supongo que sera con esa funcion
***Editado***
He probado a crear un acceso directo al exe, y le puse para que me mostrara en un mensage lo de la linea de comandos, y funciona, cuando abro un archivo me muestra la ruta del archivo, pero no se como hacer para que coga la ruta o no, probare a ponerle que si command$ es mayor de tres que habra el archivo

Muchas gracias
Saludos!

[{_The_Alwar_}]

Tengo un problema y no se por que es,
Situacion:
Tengo un procedimiento que pasandole la ruta de un archivo lo abre (ya lo e probado y funciona el proc, ah! se llama AbrirFicha
en el load del form principal pongo:

Código [Seleccionar] Expandir

abrirficha Command$
y lo normal del proc es que me carggue en cada text box un dato, pero no, este me los rellena todos con un =
El procedimiento lo que hace es abrir un archivo .INI pero con diferente extension, y no se porque pueda ser.... yo solo se, que cuando das una ruta inexistente te hace lo mismo, pero el caso es que la ruta esta bien...

[_Sergi_]

pero el caso es que la ruta esta bien

NO!! la ruta no esta bien!!!

Si te fijas, la ruta que Commad$ te da, te la da entre comillas. Eso no te sirve!!!! Si se las quitas ya tendrás la ruta preparada para abrir el archivo.

[{_The_Alwar_}]

ya, ya me habia imaginado, solo que no se que hice para ver la ruta y no habia comillas, y luego otras veces si habia comillas... como puedo kitarselas? creo que:

Código [Seleccionar] Expandir


var = mid(command$, 2, len(command$) -1)
'algo asi valdria no?


[{_The_Alwar_}]

Ya esta arreglado.

Solucion:

Código [Seleccionar] Expandir


Dim Var As String
Dim Varr As Integer
Varr = Len(Command$)
If Varr > 4 Then
Varr = Varr - 2
Var = Mid(Command$, 2, Varr)
AbrirFicha Var
Else
Exit Sub
End If


Funciona a la perfeccion
Gracias por ayudarme!!

[Slasher-K]

También podrías usar Replace$:

Código [Seleccionar] Expandir


sData=Replace$(sData, Chr$(34), vbNullString)


Saludos.

[{_The_Alwar_}]

ummm nueva funcion aprendida, ya me puedo acostar, que ya he aprendido algo xDD. Tambien valdria, Gracias.