SystemFolderPicker allows selecting multiple folders. But I can't manage displaying selected folder names. Since, probably, getdirectory command tries to convert the selection as one folder name.
Is there alternative command to solve this.
Code: Select all
Function getFoldersWSysFolderPicker AS String
oPicker = CreateUnoService("com.sun.star.ui.dialogs.SystemFolderPicker")
oPicker.multiselectionmode = true
Dim fName() As Variant
if oPicker.execute() then
getFolderWSysFolderPicker = oPicker.getdirectory()'.getDirectories()?
msgbox getFoldersWSysFolderPicker
end if
End Function