Domino 9 und frühere Versionen > Entwicklung

Script: was ist falsch?

(1/3) > >>

RvM:
Hallo Ihr Scripter.
Ich habe hier ein Script, das in einer Ansicht von einer Aktion aufgerufen wird.
Das Script soll aus einer Filelist beliebig viele PDF-Dateien einlesen und jede PDF-Datei an ein neues Dokument anhängen.
Wenn ich mehr als 6 Dokumente auswähle läuft das Ganze nicht. Warum nur????
Hier ist das Script:
-------------------
   Dim session As New NotesSession
   Dim eval As Variant
   Dim db As NotesDatabase
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim object As NotesEmbeddedObject
   Dim filename As String
   
   ' Open a dialogbox and allow users to select from a list of files
   files = workspace.OpenFileDialog(True, "Dateiliste", "Wählbare Dateien|*.pdf", "F:\")
   If Isempty(files) Then Exit Sub      ' Exit if the user selects the Cancel button
   Forall FileList In files                ' Loop through the list of files selected
      Filename = Filelist            ' Get the current filename
      
      ' Now, we will create a new document and attach the selected file to it.
      Set db = session.CurrentDatabase                  ' Get the current database
      Set doc = New NotesDocument( db )               ' Create a new Notes Doc
      Set rtitem = New NotesRichTextItem( doc, "PDF" )   ' Create a new richtext item
      Set object = rtitem.EmbedObject    ( EMBED_ATTACHMENT, "", filename) ' Attach the file to it
      doc.Form = "PDF"               ' Set the form name
      'doc.filesize = Filelen(filename)         ' Write the filename
      doc.Person = "CGChemie"
      doc.werdarf=Evaluate(|@Name([Canonicalize]; "[Master]":Person)|,doc)
      Call doc.Save( True, True )            ' Save the backend document
   End Forall         ' loop through any of the remaining files
   Dim twoLiner As String
   twoLiner = |Sie haben nun die Möglichkeit, den eingefügten
PDF's für die CG Chemie Kurzbeschreibungen hinzuzufügen.|
   Messagebox twoLiner, MB_OK, "Erinnerung"
--------
Wer kann mir sagen, wo der Fehler ist?

Manfred Dillmann:
Hallo Rolf !

>>Wenn ich mehr als 6 Dokumente auswähle läuft das Ganze nicht. Warum nur????<<

Wenn die Länge der Pfade + Dateinamen ziemlich kurz sind (Du wählst z.B. Dateien in C:\), geht´s dann auch mal mit mehr als 6 Dateien?

Wenn ja, dann Herzlichen Glückwunsch - Du hast den "OpenFileDialog"-BUG gefunden.  ;D

Spass beiseite: Ich hätte erwartet, dass Lotus diesen BUG lange gefixt hat, welche Version setzt Du denn ein?

Ich habe mal eben bei der LDD geschaut, den BUG gibt´s scheinbar immer noch...

LDD Fundstelle 1
LDD Fundstelle 2

Das Dokument zum 2. Link ist vom 13.08.2003 - unglaublich...

Gruss
Manfred

RvM:
 >:(
Schei.... Ich setze als Client 5.011 und als Server 5.06a ein.
Gibt es denn ne Möglichkeit, per Script komplette Unterverzeichnisse, die nur PDF enthalten, pro Datei ein Dok mit Anhang zu erstellen?

Manfred Dillmann:
Hallo Rolf !

>>Gibt es denn ne Möglichkeit, per Script komplette Unterverzeichnisse, die nur PDF enthalten, pro Datei ein Dok mit Anhang zu erstellen?<<

Klar. Aber nur "zu Fuss". Über die LS-Funktion Dir$ kannst Du dir in einem bestimmten Pfad alle Dateien holen. Wenn Deine Routine sich dann selbst rekursiv aufruft, kannst Du ab einem bestimmten "StartPfad" alle Unterverzeichnisse abklappern.

Ich denke, das Erstellen eines Dokumentes mit genau einem Anhang ist da noch das kleinste Problem... sorry eine fertige Routine dafür habe ich auch nicht.

Gruss
Manfred

RvM:
Danke erste einmal.
Kannst Du mir vielleicht sagen, wie ich in meinem Script
in folgender Zeile:

   doc.werdarf=Evaluate(|@Name([Canonicalize]; "[Master]":Person)|,doc)

aus dem Feld werdarf ein Leser-Feld machen kann?

Navigation

[0] Themen-Index

[#] Nächste Seite