Domino从服务器拆分文件到用户本地

这是在CS端的方法~

Sub Click(Source As Button)
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim object As NotesEmbeddedObject

Set db =  ss.Currentdatabase
Set view = db.Getview("视图名字")
Set doc = view.Getfirstdocument()
//获取文档中名字为testText.txt的文件
Set object = doc.GetAttachment("testText.txt")
//判断文档中的附件不是空
If Not object Is Nothing Then
将文件拆分到d盘test文件夹下，名字为testTtext.txt
Call object.ExtractFile("d:\test\"+"testText"+".txt")
End If
End Sub