No se si entendí bien lo que me dijistes.. pero voy a intentar ponerte todas las posiblidades que se me ocurran explicadas por paso. :D
La API siempre en todos los casos
En general pones la API
======================
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
1º Caso: En el formulario debe haber un commondialog y un boton
Private Sub Command1_Click()
Dim archivo As String
'Esto abre una caja de dialogo para elegir el archivo que quieras abrir.
Me.CommonDialog1.ShowOpen
'Esto guarda el nombre del archivo elegido en una variable.
archivo = Me.CommonDialog1.FileName
'Esto ejecuta el programa necesario para que se abra el archivo elegido.
ShellExecute hwnd, "Open", archivo, "", App.Path, 1
End Sub
Así tal cual te abre una caja de dialogo para que elijas tu el archivo que quieras abrir, sin modificar absolutamente nada. Asi puedes abrir muchos archivos de diferentes tipos dandole al boton y eligiendo el archivo deseado.
2º Caso: En el formulario debe haber un boton y una caja de texto.
Private Sub Command1_Click()
Dim archivo As String
archivo=me.text1.Text
'Esto ejecuta el programa necesario para que se abra el archivo.
ShellExecute hwnd, "Open", archivo, "", App.Path, 1
End Sub
Así tienes k poner la dirección completa del archivo en una caja de texto y darle al boton para abrir ese archivo.
3º Caso: En el formulario debe haber un boton
Private Sub Command1_Click()
Dim archivo As String
archivo="C:\...\...\documento.xxx"
'Esto ejecuta el programa necesario para que se abra el archivo.
ShellExecute hwnd, "Open", archivo, "", App.Path, 1
End Sub
En este último caso le asignas a la Variable archivo una dirección y cuando le das al boton solo abra ese archivo y ningun otro a no ser que declares la variable archivo en GENERAL y en otro lado del programa modifiques esa variable poniendole otra ruta distitna.
Todos estos codigos deberian funcionar tal cual añadiendo la API en general y tal como viene explicado con los controles necesarios sin cambiar nada.
Espero que te sirva.
ArkDark
Existen 10 tipos de personas, las que saben binario y las que no.
(*^_^*)
Galiza Zeive