Autor Thema: Script  (Gelesen 947 mal)

Offline Steffen_Albrecht

  • Senior Mitglied
  • ****
  • Beiträge: 300
  • Geschlecht: Männlich
  • Trübsal ist nicht das Einzige was man blasen kann!
Script
« 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

Offline Till_21

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 708
  • Geschlecht: Männlich
  • I love Germany
Re:Script
« Antwort #1 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

Offline Steffen_Albrecht

  • Senior Mitglied
  • ****
  • Beiträge: 300
  • Geschlecht: Männlich
  • Trübsal ist nicht das Einzige was man blasen kann!
Re:Script
« Antwort #2 am: 24.02.03 - 10:57:19 »
Ja! So klappt's!

Vielen Dank!
    Steffen

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz