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

【问题标题】：How to save file to shared drive on network with VBA如何使用 VBA 将文件保存到网络上的共享驱动器
【发布时间】：2020-07-11 17:41:55
【问题描述】：

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

当我尝试将“R:\”和文件名替换为“\ourserver\serverfolder\”和文件名时，我收到错误 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

结束子

【问题讨论】：

标签： vba ms-access networking shared-directory

【解决方案1】：

您很接近，因为您只是错过了 UNC 路径中的一个前导反斜杠：

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

【讨论】：