fso.CopyFile停止在MS中工作

Question

我有下面的代码，我已经用了一年了。我今天试着用它，一直被拒绝许可。我没有改变任何东西，已经离开工作2w了。我已经检查了一切，以及从12月中旬卸载的安全修复，但仍然不能工作了。这是我的中的一个按钮，用于备份当前DB。我正在使用MS365。

Public Function DBBackup()

Dim fso As FileSystemObject
Dim sSourcePath As String
Dim sSourceFile As String
Dim sBackupPath As String
Dim sBackupFile As String

sSourcePath = "W:\Analysis Check\My Data\"
sSourceFile = "Weekly Chronics DB.accdb"
sBackupPath = "W:\Analysis Check\My Data\"
sBackupFile = "Weekly Chronics DB_" & Format(Date, "mmddyyyy") & ".accdb"

Set fso = New FileSystemObject
fso.CopyFile sSourcePath & sSourceFile, sBackupPath & sBackupFile, True
Set fso = Nothing

Beep
MsgBox "Backup was successful", vbInformation, "Backup Completed"

End Function

Answer 1

检查以确保源文件未被锁定，另一个可能的原因是目标文件夹存在权限问题。