Seite 1 von 1

FilePicker

Verfasst: Mi 31. Mai 2017, 18:31
von H.-M.Brückmann
Hallo zusammen,
irgendwie hab ich Probleme dem FilePicker, trotz setMultiSelectionMode(true) die ausgewälten Daten zu entlocken.
Hier der abgespeckte Code. Was mach ich falsch?

Code: Alles auswählen


Function MyFilePickerSimple() as String
 Dim oFilePickerDlg, sFilePickerArgs, oUcb
 Dim l_files()
 Dim i%
 oFilePickerDlg = createUnoService( "com.sun.star.ui.dialogs.FilePicker" )
 oFilePickerDlg.setMultiSelectionMode(true)
 oFilePickerDlg.execute
 l_files =  oFilePickerDlg.getFiles()
 	 for i = lbound(oFilePickerDlg.Files) to ubound(oFilePickerDlg.Files)
	    MsgBox(oFilePickerDlg.Files(i))
	 Next i   
End Function
habs auch mal mit einem Array (l_files) versucht, die For-Schleife gibt trotzdem immer nur eine Datei aus.
Verion von LO: 5.3.3.2 (x64) unter Windows 7

Re: FilePicker

Verfasst: Mi 31. Mai 2017, 19:52
von mikele
Hallo,
nimm .getSelectedFiles() anstelle von .getFiles()

Re: FilePicker

Verfasst: Do 1. Jun 2017, 08:51
von H.-M.Brückmann
Hallo mikele,
läuft!
Es geht auch SelectedFiles(i)
Es werden auch vollständige Dateinahmen mit Pfad zurückgegeben.

Danke!