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") '將附件存放到指定路徑目錄下