Quiero comentarles que he estado realizando un botón en un formulario que me abre un visor de una carpeta con todos los archivos (archivos de Notas en pdf) y que me permita elegir el archivo a a abrir. A través del siguiente código sacado del libro de Mauricio y adaptado a mi necesidad me permite hacerlo perfectamente:
Código: Seleccionar todo
Sub AbrirArchivo1()
Dim oDlgAbrirArchivo as Object
Dim mArchivo() As String
Dim mOpciones()
Dim sRuta As String
Dim oDoc As Object
'Creamos el servicio necesario
oDlgAbrirArchivo = CreateUnoService ("com.sun.star.ui.dialogs.FilePicker")
'Establecemos el título del cuadro de diálogo
oDlgAbrirArchivo.setTitle("Selecciona el archivo a abrir")
'Con el método .Execute() mostramos el cuadro de diálogo
'Si el usuario presiona Abrir el método devuelve 1 que podemos evaluar como Verdadero (True)
'Si presiona Cancelar devuelve 0
If oDlgAbrirArchivo.Execute() Then
'De forma predeterminada, solo se puede seleccionar un archivo
'pero devuelve una matriz de todos modos con la ruta completa
'del archivo en formato URL
mArchivo() = oDlgAbrirArchivo.getFiles()
'El primer elemento de la matriz es el archivo seleccionado
sRuta = mArchivo(0)
'Y lo abrimos
sys = CreateUnoService("com.sun.star.system.SystemShellExecute")
'------------------------------------------------------------------------------
'Abre el documento en el visor predeterminado
sys.execute( sRuta, "", 0)
Else
'Si el usuario presiona Cancelar
MsgBox "Proceso cancelado"
End If
End Sub
He intentaddo hacer varios ensayos, pero todos fueron errores.. jejeje.
De no ser posible prescindiré de la opción mencionada utilizaré el código:
Código: Seleccionar todo
Shell("explorer",1,"C:\Docs")
Desde ya les agradezco cualquier sugerencia que me puedan hacer al respecto.
Un saludo grande desde Buenos Aires, Argentina.
Chelo2