lotus拆离附件到其他Server路径下?
鬼英姿 2014-05-26 06:05:56 网页执行Agent
Dim varFile As Variant
Dim obj As NotesEmbeddedObject
varFile=Evaluate(|@AttachmentNames|,doc)
For i=0 To Ubound(varFile)
Set obj=doc.GetAttachment(varFile(i))
If Dir("D:\\JanetTest",16) = "" Then
Mkdir "D:\\JanetTest"
End If
Call obj.ExtractFile("D:\\JanetTest\\" & varFile(i)) ==>这段是正常的
If Dir("Z:\\JanetTest",16) = "" Then ==>这段是我在Domino Server建了网络映射,执行时说找不到路径 Mkdir "Z:\\JanetTest"
End If
Call obj.ExtractFile("Z:\\JanetTest\\" & varFile(i))
Next
各位大侠,帮忙看一下,怎样才能跨Server执行成功?