当前位置:首页 > 计算机相关 > lotus专区 > 正文内容

domino中上传控件文件拆离的LS代码

piikee13年前 (2010-08-03)lotus专区227
domino中上传控件文件拆离的LS代码
Dim inputAttachment As NotesEmbeddedObject
Dim v_files As Variant
v_files = Evaluate(|@Trim(@Replace(@AttachmentNames;TANGER_OCX_filename;""))|,doc)
For i = 0 To Ubound(v_files)
Set inputAttachment = doc.GetAttachment(v_files(i)) '获取文件
If Not inputAttachment Is Nothing Then
Dim url As String
url = session.GetEnvironmentString("Directory",True)   '路径为\domino\data目录
If Dir$(url+"\AttachmentTemp",16) ="" Then   '判断在url+"\AttachmentTemp"目录是否存在,不存在则值为空,存在则值为AttachmentTemp
Msgbox "不存在"
Mkdir url + "\AttachmentTemp"  '在url下面创建一个名为AttachmentTemp的文件夹
url = url +"\AttachmentTemp"
Else
Msgbox "存在"
url = url +"\AttachmentTemp"
End If
Msgbox "文件存储位置:" + url
Msgbox "文件名:" + inputAttachment.Name
Call inputAttachment.ExtractFile(url+"\temp.xls") '将附件存放到指定路径目录下

扫描二维码推送至手机访问。

版权声明:本文由萍客小居发布,如需转载请注明出处。

本文链接:https://www.piikee.net/670.html

分享给朋友:

相关文章

lotus中的CGI域

为了在域中捕获C G I变量,创建一个以C G I变量命名的文本域(例如, HTTP_COOKIE)。一般地,在编辑状态下将该域设置为隐藏,这样用户就不能改变域中的值。当用户打开表单的时候, HTTP_COOKIE环境变量的实际值变成了域中...

domino 8.51安装全步骤(图文教程)

domino 8.51安装全步骤(图文教程)

一、domino服务器端的安装(lotus_domino851_w32_CZ5RTEN.exe )双击打开安装包:解压到一个临时目录,只是临时存放安装数据的。解压完无需打开此目录,安装程序会自动到此目录打开安装的界面。界面如下图:点击nex...

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。