Vba 错误70尝试备份数据库后端时权限被拒绝

我正在尝试自动备份位于网络驱动器上的拆分数据库的后端。不幸的是，我一直在标题中显示错误

代码：

函数备份（）
错误时转到错误备份
作为字符串的Dim strNewBEname
作为字符串的Dim strOldBEname
Dim strDateStamp作为字符串
strOldBEname=“P:\Access Datenbank\Durament\u db\u be\Durament\u db\u be.accdb”
'strOldBEname=“\\192.XXX.XX.XXX\Daten\Access Datenbank\Durament\u db\u be\Durament\u db\u be.accdb”
strDateStamp=格式（日期，“年月日”）
strNewBEname=“P:\Access Datenbank\Durament\u db\u be\BackUp\”和“BackUp\u vom\”和strDateStamp&“.accdb”
“strNewBEname=“\\192.XXX.XX.XXX\Daten\Access Datenbank\Durament\u db\u be\BackUp\”和“BackUp\u vom\uu”&strDateStamp和“.accdb”
'复制数据库
文件副本strOldBEname，strNewBEname
MsgBox“后端数据库已备份！”
退出备份：
退出功能
错误备份：
MsgBox错误编号和错误描述
恢复退出备份
端函数

---

代码只是将当前后端复制到另一个文件夹中。起初，我认为这是一个与服务器相关的问题，涉及所需的密码。因此，我映射了驱动器并使用了本地路径，但是，它仍然不起作用。我已经使用f8完成了代码，退出函数时出错，这对我来说没有多大意义。我非常感谢任何能让我在代码中找到错误部分的提示，提前谢谢。

正如@Andre建议的那样，我在使用前端时设法使用FileSystemObject复制后端

函数备份（）
错误时转到错误备份
作为对象的Dim fso
设置fso=VBA.CreateObject（“Scripting.FileSystemObject”）
作为字符串的Dim strNewBEname
作为字符串的Dim strOldBEname
Dim strDateStamp作为字符串
strOldBEname=“P:\Access Datenbank\Durament\u db\u be\Durament\u db\u be.accdb”
'strOldBEname=“\\192.XXX.XX.XXX\Daten\Access Datenbank\Durament\u db\u be\Durament\u db\u be.accdb”
strDateStamp=格式（日期，“年月日”）
strNewBEname=“P:\Access Datenbank\Durament\u db\u be\BackUp\”和“BackUp\u vom\”和strDateStamp&“.accdb”
“strNewBEname=“\\192.XXX.XX.XXX\Daten\Access Datenbank\Durament\u db\u be\BackUp\”和“BackUp\u vom\uu”&strDateStamp和“.accdb”
'将当前文件复制到文件夹
调用fso.CopyFile（strOldBEname、strNewBEname）
MsgBox“后端数据库已备份！”
退出备份：
退出功能
错误备份：
MsgBox错误编号和错误描述
恢复退出备份
端函数

您是否可以手动将文件复制并粘贴到新位置？可能存在文件夹写入权限问题？您应该在标签

Err\u backup:

之前添加一条语句

Exit Function

，以防止在任何情况下显示MsgBox。但这并不能解释错误70@Harun24HR是的，我可以手动复制并粘贴到服务器上的新位置，因此我不认为权限是一个问题。@FunThomas Correct，我忘记将该部分粘贴到我的问题中。代码是如何触发的？