Domino从服务器拆分文件到用户本地
2015-12-21 11:03
375 查看
这是在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
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
相关文章推荐
- 小心服务器内存居高不下的元凶--WebAPI服务
- 运维入门
- Linux5.9无人值守安装
- 数据中心和云未来的十二大趋势
- 用vsftp快速搭建ftp服务器
- Linux快速构建apache web服务器
- 服务器监控策略浅谈
- 如何降低服务器采购成本 原理分析
- 建议的服务器分区办法
- 服务器托管六大优势分析
- Erlang实现的一个Web服务器代码实例
- 服务器技术全面解析
- 保护DNS服务器的几点方法小结
- 我国成为全球第二大服务器消费国
- 服务器 安全检查要点[星外提供]
- 服务器应用自动重新启动IIS批处理[原创]_DOS/BAT_脚本之家
- FTP 服务器关于权限的问题
- 批处理设置windows服务器的代码ThecSafe1.9.4第1/3页
- Apache服务器配置全攻略