filepicker - preseleccionarle un archivo al abrir
Publicado: Mar Abr 16, 2019 3:27 am
Saludos,
tengo el siguiente código para visualizar fotos con filepicker
pero, las listas de imagenes son extensas y quisiera restringir más el filtrado a nombres con alguna subcadena.
A golpe intenté en la linea dlg.appendFilter("JPG - JPEG", "*.*" ) reemplazar "*.*" por una subcadena como "mar*.*" y no aparecen nombres.
Se podrá precisar un nombre de archivo para preseleccionar al abrir el filepicker?
Gracias
tengo el siguiente código para visualizar fotos con filepicker
Código: Seleccionar todo
If Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools") Then
GlobalScope.BasicLibraries.loadLibrary("Tools")
endif
sRutaURL = ThisComponent.getURL()
sRutaCompleta = ConvertFromUrl( sRutaURL )
sRuta = DirectoryNameoutofPath(sRutaCompleta, GetPathSeparator()) & GetPathSeparator()
cFileName=nombre_lista & ".jpg"
sRuta=sRuta & "FOTOS" & GetPathSeparator() & codigo' & GetPathSeparator()
'msgbox sRuta
Dim dlg as Object
Dim oDoc as Object
Dim mNoArgs()
Dim sURL as String
dlg = CreateUnoService( "com.sun.star.ui.dialogs.FilePicker" )
Dim Dialogtyp(1)
DialogTyp(0) = com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_LINK_PREVIEW 'FILEOPEN_LINK_PREVIEW ''FILESAVE_AUTOEXTENSION
DialogTyp(1) =com.sun.star.ui.dialogs.ExtendedFilePickerElementIds.CHECKBOX_AUTOEXTENSION
dlg.initialize(DialogTyp())
dlg.Title = " ---->>> " & nombre_lista ' "Test"
Dim oConfigProvider as Object
Dim oRegistryKeyContent as Object
Dim aNodePath(0) as new com.sun.star.beans.PropertyValue
oConfigProvider = createUnoService("com.sun.star.configuration.ConfigurationProvider")
aNodePath(0).Name = "nodepath"
aNodePath(0).Value = "/org.openoffice.Office.Common/Path/Info"
oRegistryKeyContent = oConfigProvider.createInstanceWithArguments("com.sun.star.configuration.ConfigurationUpdateAccess", aNodePath())
oRegistryKeyContent.WorkPathChanged = true
oRegistryKeyContent.commitChanges
dlg.DisplayDirectory = ConvertToURL( sRuta )
dlg.appendFilter("JPG - JPEG", "*.*" )
dlg.setValue(com.sun.star.ui.dialogs.ExtendedFilePickerElementIds.CHECKBOX_PREVIEW, 1, true) '0, False
' dlg.SetShowState=True
If dlg.Execute = 1 Then
sURL = dlg.Files(0)
EndIf
A golpe intenté en la linea dlg.appendFilter("JPG - JPEG", "*.*" ) reemplazar "*.*" por una subcadena como "mar*.*" y no aparecen nombres.
Se podrá precisar un nombre de archivo para preseleccionar al abrir el filepicker?
Gracias