File-Resources import via LS.

[Ozan]

Hallo,

nachdem die Daten aus der Zip-File erfolgreich entpackt worden sind müssen diese in die NSF unter File-Resources importiert werden.

Habe mir mehrere Beispiele des import variantan angeschaut. Die meisten wollen in eine Document die Dateien als Anhang importieren oder Bilder in  RichTextFeld importieren.

Ich brauche eine Variante der in einem Verzeichnis vorhandene Dateien, und zwar alle, egal wie die endungen heissen, in die NSF unter File-Resources importiert. Die Goldversion währe natürlich vorhandene Dateien in File-Resources upzudaten und neue hinzufügen.

Vielleicht kann mir jemand einpaar Feedbacks bzw. Import Varianten zeigen.

Gruss

Ozan

[Ozan]

Hier mein bisheriges Code:

Sub Initialize
   Dim session As New NotesSession
   Dim stream As NotesStream
   Set stream = session.CreateStream
   files& = 0

   directory$ = "C:\Temp"
   Chdir directory$
   file$ = Dir$("*.*")
   While file$ <> ""
      files& = files& + 1
      Call stream.Close
      file$ = Dir$()
   Wend
End Sub

[eknori]

nein, nein, sooo einfach ist das nicht. Gucke mal bei OpenNTF.org im CodeBin nach. Da gibt es was, um Bilder zu importieren ( sind ja auch files ). Stelle dich schon mal auf so Dinge wie Base64 encoding ein ...

[m3]

Wenn es nicht Endusertauglich sein soll, ginge das auch via WebDAV: http://www.codestore.net/store.nsf/unid/FISR-6U8SN7/

[Ozan]

Ne ne, keine Endusertauglichkeit, aber ich muss eventuell die Dateinamen bzw. Alias anpassen, das importieren soll automatisch über nacht geschehen, während der import muss ich wie gesagt vorhandene updaten neue hinzufügen und alias überarbeiten.