如何使用VBA将文件保存到网络上的共享驱动器

Question

使用尝试编写将文件保存到我们网络上的共享驱动器的代码。如果我使用映射的驱动器作为目标位置（即R：...），那么它没有问题。但是，不是每个人都映射到那个，所以我希望能够保存文件use \ ourserver \ serverfolder ...

当我尝试用“\ ourserver \ serverfolder \”和文件名替换“R：\”和文件名时，出现错误76，“找不到文件路径”。

本质上，问题是如何使用共享驱动器路径通过vba将文件保存到共享驱动器？

示例代码采用源文件“C：\ houses \ myhouse.pdf”...并希望保存到目标文件“\ ourserver \ serverfolder \ anotherfolder \ myhouse.pdf”

Private Sub CopyRenameFile(ByRef SourceFile As String, ByRef DestinationFile As String)
On Error Resume Next
    FileCopy SourceFile, DestinationFile
        If Err.Number <> 0 Then
            Call LogError(Err.Number, Err.Description, "CopyRenameFile() Class FileMoverMove", , True)
            MsgBox "Copy error: " & SourceFile
        End If
On Error GoTo 0

结束子

Answer 1

你很接近，因为你错过了UNC路径中的一个反斜杠：

DestinationFile = "\\ourserver\serverfolder\" & file name