kopiere flere filer med NotesScript

Ups - fik ikke resten med...

Ligeledes vil jeg gerne have mulighed for at vedhæfte en given fil med:

    Set object = rtitem.EmbedObject _
    ( EMBED_ATTACHMENT, "", "E:\stocksend\*.*")

hvordan gør jeg det?

Ingen ideer???

Har fundet løsningen på første del på notes.net:

tmp = Dir$("C:\LOTUS\NOTES\DATA\*.id)
While Not tmp = ""
FileCopy "C:\LOTUS\NOTES\DATA\" & tmp, "CL\R5_BACKUP\" & tmp
tmp = Dir$
Wend

Løste det selv :-)

    tmp = Dir$("E:\stock\*.*")
    While Not tmp = ""
        Print tmp
        FileName = tmp
        Filecopy "E:\stock\" & tmp, "E:\stocksend\" & tmp
        tmp = Dir$'
    Wend
    Set db = session.CurrentDatabase
    Set doc = New NotesDocument( db )
    Set rtitem = New NotesRichTextItem( doc, "Body" )
    Set object = rtitem.EmbedObject _
    ( EMBED_ATTACHMENT, "", "E:\stock\" & FileName)

jubiii