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

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

piikee13年前 (2010-08-03)lotus专区299
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

分享给朋友:

相关文章

LotusScript下的分页

表单页面放一个域,名字为curpage,域的defaultvalue写上@UrlQueryString 获取URL。再放一个display_list的计算域,用于显示列表和分页导航。表单的webqueryopen写上@Command([To...

windows 2003 上Lotus Notes 客户端无法运行的解决办法

在windows 2003 上安装Lotus Notes 客户端后,运行Notes一闪而过,无法运行,解决方法如下:1.检查Lotus\notes\mui是否有MUI.DAT,没有则拷贝,此文件还关系到中文版的界面是否是中文2.如果NAME...

发表评论

访客

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