domino文件拆离数据库，放入指定目录

domino文件拆离数据库，放入指定目录的LS代码：
Sub Initialize
On Error Goto MsgError
Dim session As New NotesSession
Dim doc As NotesDocument
Dim FilePath As String
Dim fileNames As Variant
Dim objEmbed As NotesEmbeddedObject
Set doc=session.DocumentContext
fileNames=Evaluate("@AttachmentNames",doc)  '获取文档所有附件名称
filePath=session.GetEnvironmentString("Directory")  '环境变量
If(Isarray(fileNames)) Then
Forall fileName In fileNames
filePath=filePath+"\"+fileName
Set objEmbed=doc.GetAttachment(filename)
Call objEmbed.ExtractFile(filePath)'将文档中的附件导出
Call objEmbed.Remove() '删除文档中的附件
End Forall
End If
Exit Sub
MsgError:
Msgbox "Error:"+Error$+" onLine:"+Cstr(Erl)
End Sub