Domino 9 und frühere Versionen > ND6: Entwicklung

Dateien von Harddisk importieren und löschen

(1/1)

immanuel:
Hallo Zusammen

Für eine Automatisierung möchte ich alle Attachments per Agent aus einem Verzeichnis importieren und diese Files dann auf dem Verzeichnis löschen. Kennst ihr ein entsprechendes Codebeispiel?

Danke und Gruss
Manuel

dirk_2909:
Hallo

Ja  ;D

Auszüge aus der Designer-Help:


--- Zitat ---Dim pathName As String, fileName As String
pathName$ = "c:\*.*"
fileName$ = Dir$(pathName$, 0)
Do While fileName$ <> ""
   Print fileName$
   fileName$ = Dir$()
Loop
--- Ende Zitat ---
...

--- Zitat ---Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject _
( EMBED_ATTACHMENT, "", "c:\jim.sam")
doc.Form = "Main Topic"
doc.Subject = "Here's Jim's document, as an attachment"
Call doc.Save( True, True )
--- Ende Zitat ---
...


--- Zitat ---' Delete the file c:\test from the file system.
Kill "c:\test"
--- Ende Zitat ---

immanuel:
Hi!
Die Designer Help... ich hätte es wissen müssen.
Herzlichen Dank!

Grüsse
Manuel

Navigation

[0] Themen-Index