Domino 9 und frühere Versionen > ND8: Entwicklung

"Anwendung öffnen" mit Script

<< < (2/3) > >>

Axel:
Schau dir mal aus NotesUIWorkspace die Methode OpenFiledialog an. Der ist dem Öffnen - Dialog aus Windows nachempfunden.

Du mußt ein paar mehr Parameter entsprechend übergeben, dafür kannst du aber auch mehrere Datenbanken auswählen.

Axel
 

ascabg:
Dein eigentliches 'kleines' Problem duerfte wohl aber hierher kommen.


--- Zitat ---For PROMPT_CHOOSEDATABASE, the return value is a three-element array of strings, containing the server, filepath, and title of the database, in that order;
--- Ende Zitat ---
Also, egal wieviele Datenbank Du auswaehlst, es wird immer ein Array mit 3 Elementen zurueckgegeben werden.


Andreas

dnotes:
Jetzt wurde es doch noch erkannt, dass es ein anderes Array zurück gibt.

Stör Dich nicht an den überflüssigen Anführungszeichen.
So geht´s:

Dim ws As New NotesUIWorkspace
   Dim filenames As Variant
   filenames = ws.Prompt( 13, "", "")
   Dim vv As Variant
   w = Split(filenames(1)," ")
'Als Beispiel mal das 2. Element aus w ausgewählt. Ein Loop über alle gewählten geht natürlich auch.
   Dim db As New NotesDatabase("",w(1))

*Anführungszeichen sind doch zu viel und müssen weg

Peter Klett:
Dann mach es so:

Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim filenames As Variant
   filenames = ws.Prompt( 13, "", "")
   Dim dateinamen As Variant
   dateinamen = Fulltrim (Split (filenames (1), |"|))
End Sub

filenames (0) enthält den Server
dateinamen ist ein Array mit allen Dateinamen

koehlerbv:
... und filenames (2) enthält immer nur einen Titel, was man wohl als Bug bezeichnen muss.

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete