/text/sbasic/shared/code-stubs.xhp

Dim aPicker As com.sun.star.ui.dialogs.XfilePicker

aPicker.getDisplayDirectory()

Dim intVar as Integer