OpenOffice.info

hallo ng

mit folgendem code soll dlg mit einem filecontrol den dort ausgewählten pfade weitergeben. das filecontrol sollte auf dbf-formate voreingestellt sein.


Sub ImpDbf
' arg (1)=Array mit 2 Argumenten definieren für den Filter und die Filteroptionen
Dim arg(1) as new com.sun.star.beans.PropertyValue
Dim sURL as String
Dim Dlg as Object
DialogLibraries.LoadLibrary("Standard")
Dlg = CreateUnoDialog(DialogLibraries.Standard.dlgFileOpen)


arg(0).name = "FilterName"
arg(0).value = "dBase"
arg(1).name = "FilterOptions"
arg(1).value = "0" '
sURL = 'hier soll der Wert des Dialoges stehen
StarDesktop.loadComponentFromURL(sURL, "_blank", 0, arg())
End Sub

wie findet die übergabe statt?

freue mich auf eine anwort

viele grüße klaus