zoukankan      html  css  js  c++  java
  • domino中上传控件文件拆离的LS代码

    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") '将附件存放到指定路径目录下
  • 相关阅读:
    对象的方法
    uni-app运行
    flex取值
    阿里矢量库使用
    移动端vue项目模板
    微信分享--转载
    页面流动条
    uni-app打包
    Hibernate~DAO
    EL表达式
  • 原文地址:https://www.cnblogs.com/hannover/p/2122502.html
Copyright © 2011-2022 走看看