domino中上传控件文件拆离的LS代码
Link URL: http://www.piikee.net/read.php/401.htm
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") '将附件存放到指定路径目录下
Tags - domino , ls代码 , 上传控件
Link URL: http://www.piikee.net/read.php/401.htm
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/15647543/viewspace-674010/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
