FilePicker

[krulex]

Hallo, könnte mir jemand bitte helfen?
Ich möchte den standart "Open File" Dialog benutzen um eine Datei öffnen zu lassen. Dafür verwende ich folgendes Code:

dim dlgFile1
dlgFile1 = CreateUnoService ("com.sun.star.ui.dialogs.FilePicker")
with dlgFile1
.SetMultiselectionMode (False)
.Title = "Select a file"
end with
dlgFile1.Execute

Beim kicken auf "Open" in dem Dialog, wird aber nichts sichtbar aufgemacht.
Wie kann ich auf die Daten aus der ausgewählten Datei zugreifen?

Ich könnte die Datei selbst mit "...loadComponentFromURL..." öffnen aber die Datei wird nur zur Laufzeit bestimmt.

Danke.

[komma4]

Du musst das OPEN-Ereignis auch auswerten.

Code: Alles auswählen

iAccept = dlgFile1.Execute()
If iAccept = 1 Then
....

[Toxitom]

Hey Krulex,

wie komma4 schon schrieb - du musst selbst dafür sorge Tragen, dass der Dialog ausgewertet wird. Mit seinem Code erkennst du, ob der Dialog abgebrochen wurde oder ob die Taste "Öffnen" gedrückt wurde.
Der nächste Schritt ist, dass du die gewählte Datei ausliest - Pfad und Datei. Das übergibst du dann der "loadComponentFromURL()" Methode - dann öffnet sich auch deine Datei

Um die gewählten Dateien auszulesen, nuttz du die Methode "getFiles()", wobei du hier einen Array der gewählten Dateinamen zurückbekommst - mit ein paar Besonderheiten. In deinem Fall ist das nicht wichtig, da der "Multi-Selectionmode" auf False steht. In dem Fall ist der erste Arrayeintrag dein Dateiname inkl. des Pfades. Probiere es aus:

Code: Alles auswählen

iAccept = dlgFile1.Execute()
If iAccept = 1 Then
  aListe = dlgFile1.getFiles()
  msgbox aListe(0)
  ...

Viele Grüße
Thomas

[krulex]

Vielen Dank für die Hinweise!
Jetzt funktioniert es!