Question

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

当我尝试更换＆＃34; R：\＆＃34; ＆安培;文件名为＆＃34; \ ourserver \ serverfolder \＆＃34; ＆安培;文件名，我收到错误76，＆＃34;找不到文件路径。＆＃34;

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

示例代码采用sourcefile＆＃34; C：\ houses \ myhouse.pdf＆＃34; ...并希望保存到目标文件＆＃34; \ ourserver \ serverfolder \ anotherfolder \ myhouse.pdf＆＃34;

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

End Sub

Answer 1

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

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

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

1 个答案: