Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Silent_Bob am 25.11.05 - 08:29:47

Titel: Script für Datei Import klappt nicht so ganz
Beitrag von: Silent_Bob am 25.11.05 - 08:29:47

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?

Titel: Re: Script für Datei Import klappt nicht so ganz
Beitrag von: Johnson am 25.11.05 - 08:47:12

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.

Titel: Re: Script für Datei Import klappt nicht so ganz
Beitrag von: Silent_Bob am 25.11.05 - 09:01:11

...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