Código: Seleccionar todo
'=======================================================================
'VISOR DE ARCHIVOS
'=======================================================================
Dim Lista As Object
Dim mDatos As String
Dim sInfo As String
Sub Abre_Visor
Dim oDialogo as Object
Dim oControl as Object
Dim mDatos () As String
'CARGA EL DIALOGO
DialogLibraries.LoadLibrary("Standard")
oDialogo=Createunodialog(DialogLibraries.Standard.Dg_Visor)
Call Lee_Ruta
'CARGA EL CONTROL
Lista = oDialogo.getcontrol ("ListBox1")
'CARGA EL LISTBOX CON LOS DATOS DEL DIRECTORIO
sInfo = Dir("D:\AOOSUR\",0)
Do While sInfo>""
'MsgBox cArchivo
sInfo=Dir
Lista.addItem( sInfo, Lista.ItemCount)
Loop
'MsgBox "No quedan más archivos"
Lista.addItem( sInfo, Lista.ItemCount)
oDialogo.Execute()
End Sub
'SELEECIONA EL ARCHIVO Y LO ABRE
Sub Selec_Arch
dim Ruta As String
sSeleccionado = Lista.getSelectedItem()
Ruta = Camino & "\" & sSeleccionado
'Abre el documento en el visor predeterminado
sys = CreateUnoService("com.sun.star.system.SystemShellExecute")
sys.execute( Ruta, "", 0)
End Sub
Mi consulta es la siguiente: ¿hay alguna forma de cargar de manera más ágil el ListBox??
Desde ya muchas gracias a quien pueda ayudarme con este tema.
Un saludo desde Buenos Aires, Argentina.
Chelo2