请问怎么编写lotus script代理程序把notes附件保存到本地

请教如何编写lotus script代理程序把notes附件保存到本地
如何编写lotus   script代理程序把notes附件保存到本地，请大侠多多帮忙！

------解决方案--------------------
Dim object As NotesEmbeddedObject
Set object = cdoc.GetAttachment(FileName)
If Not( object Is Nothing ) Then
driverDir=path+object.Name
driverDir=Replace(driverDir, "\\ ", "\ ") 'Replace函数将 "\\ "转换成 "\ "
Call object.ExtractFile(driverDir)
End If
FileName为你要把附件保存到本地磁盘的路径

------解决方案--------------------
打错
FileName是附件名
driverDir是把附件保存到本地磁盘的路径
------解决方案--------------------
记得给分,呵呵
------解决方案--------------------
lotus技术交流 37459714 欢迎加入
------解决方案--------------------
Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim cdoc As notesdocument
Set db = session.currentdatabase
Set cdoc = session.documentcontext
path =Curdrive$()+ "\lotus\domino\data\domino\html\ " '这在里指定硬盘路径
FileName=cdoc.FileName(0) '得到上传附件的名称,form提交时可以用js把附件名放入FileName域中
Dim object As NotesEmbeddedObject
Set object = cdoc.GetAttachment(FileName)
If Not( object Is Nothing ) Then
driverDir=path+object.Name
driverDir=Replace(driverDir, "\\ ", "\ ") 'Replace函数将 "\\ "转换成 "\ "
Call object.ExtractFile(driverDir)
End If
'Curdrive$()函数得到当前domino所在目录.