Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Steffen_Albrecht am 24.02.03 - 10:06:08

Titel: Script
Beitrag von: Steffen_Albrecht am 24.02.03 - 10:06:08

Hallo,

ich habe folgendes Problem:
Ich muss verschiedene Pfadangaben (für ein Profildokument) in einer Maske speichern.
hierfür möchte ich einen File-Dialog verwenden und den Rückgebewert dann in das
betreffende Textfeld schreiben. Den Dialog bekomme ich ja auch schon geöffnet aber
wie bekomme ich jetzt den String in mein Feld rein?


Hier also mein Script:


Sub Click(Source As Button)   

   Dim uidoc As NotesUIDocument   
   Dim ws As New NotesUIWorkspace
   
   Set uidoc=ws.CurrentDocument
   
   filenames = ws.OpenFileDialog(False, "Bitte wählen Sie die Stammdaten intern Datenbank","", "c:\")
   If Not ( Isempty ( filenames )) Then
      Call uidoc.FieldSetText("Stammdatenintern",filenames)
   End If
      
End Sub

Titel: Re:Script
Beitrag von: Till_21 am 24.02.03 - 10:37:08

die funktion gibt dir ein array zurueck...

greif also auf (0) zu :
Call uidoc.FieldSetText("Stammdatenintern",filenames(0))

gruss

Titel: Re:Script
Beitrag von: Steffen_Albrecht am 24.02.03 - 10:57:19

Ja! So klappt's!

Vielen Dank!
    Steffen