Script für Datei Import klappt nicht so ganz

[Silent_Bob]

guten morgen,

ich bin grad dabei Lotus Script zu lernen und scheitere nun schon an meinem ersten kleinen Script.

Ich möchte in ein RTF Feld eine JPG Datei importieren. Prinzipiell ganz simpel.

Mein Script sieht so aus:

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim datei As Variant
   Set uidoc = workspace.CurrentDocument
   datei = workspace.OpenFileDialog(False, "Datei auswaehlen", "JPG Dateien | *.jpg", "f:\bilder")   
   Call uidoc.GotoField("artbild")
   Call uidoc.Import("JPEG Image", Cstr(datei))
End Sub

Laut Debugger läuft alles gut durch. Der Auswahldialog kommt, ich kann die Dateien whälen (werden auch gefiltert) und der Pfad wird als String an die Import Funktion übergeben. Danach knallts, mit der Fehlermeldung "Type mismatch".

Wer kann mir sagen was ich falsch gemacht habe?

[Johnson]

Moin moin,

der Rückgabewert der OpenFileDialog ist ein Array mit Strings (s. Debugger).

Ändere

Code

Cstr(datei)

in

Code

Cstr(datei(0))

Noch was:
Falls die Dialogbox mit "Cancel" geschlossen wird ist die der Rückgabewert leer.
Also besser mit

Code

If IsEmpty(datei) Then Exit Sub

abfragen. Sonst knallts wieder.

[Silent_Bob]

...ein Array....

Das hab ich gar nicht bemerkt. Dachte der Rückgabewert wäre nur ein String. Aber jetzt wo du´s sagst....

Wenn ich bei OpenFileDialog den ersten Parameter von False auf True setze, könnte ich ja auch mehrere Dateien auswählen, und somit hätte ich dann evtl. auch das Array bemerkt *g*

Alles klar. Läuft jetzt. Vielen Dank