lotus拆离附件到其余Server路径下

lotus拆离附件到其他Server路径下？
网页执行Agent
Dim varFile As Variant
Dim obj As NotesEmbeddedObject
varFile=Evaluate([email protected]|,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执行成功？
------解决方案--------------------
菜鸟路过，感觉是映射的问题
------解决方案--------------------
写到网络中其他文件夹下，与文件操作是一样的，文件夹必须是共享可写的属性，而且你访问时只能使用网络路径如：\\IP或计算机名\share
------解决方案--------------------
顶三楼，Domino server在执行代码时，只有IP+路径比较好用，Windows操作系统的盘符和路径尽量不用。