VBS中CopyFile权限被拒绝

Question

我正在尝试自动将一个文件推送到我的用户的主目录中，但是我被一个"Permission Denied“错误卡住了--在这里的第6行，通过CopyFile调用抛出。

脚本的其他部分(未显示)使用相同的源目录和目标目录创建和复制文件夹内容，并且它们工作得很好。只有当我使用CopyFile时，它才会失败。

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FileExists("H:\Minecraft\.minecraft\options.txt") Then
    fso.CopyFile "C:\Minecraft\options.txt", "H:\Minecraft\.minecraft\"
End If

Set fso = Nothing

H:是网络主目录，当前用户对其具有完全读写权限。

我已经尝试在路径中添加/删除尾随斜杠，向目标路径添加"options.txt"，删除false参数……不知道还能尝试什么。有什么想法吗？

仅供参考，这段代码紧跟在上面容易出错的部分之前，每次都会完美执行：

If Not fso.FolderExists("H:\Minecraft\.minecraft\bin\") Then
    If Not fso.FolderExists("H:\Minecraft\.minecraft\") Then
        fso.CreateFolder("H:\Minecraft\.minecraft\")
    End If
    fso.GetFolder("C:\Minecraft\bin\").Copy "H:\Minecraft\.minecraft\"
End If

Answer 1

我只在以下三种情况中看到过CopyFile失败并出现"permission denied“错误：

源路径或destination.

• Destination路径的实际权限问题是文件夹，但没有尾随的backslash.

• Source文件被应用程序锁定。

Answer 2

对我来说，在文件夹的末尾添加/是可行的。因此，如果要复制到文件夹中，请不要忘记将/

Answer 3

另一件要检查的事情是，是否有任何应用程序仍然持有该文件。

与MoveFile有一些问题。我的权限问题的一部分是，我的脚本打开文件(在本例中是在Excel中)，进行修改，关闭它，然后将其移动到“已处理”文件夹。

在调试过程中，脚本崩溃了几次。深入研究权限被拒绝的错误，我发现我有4个Excel实例在后台运行，因为由于上述崩溃，脚本永远无法正确地终止应用程序。显然，其中一个人仍然持有该文件，因此，“许可被拒绝”。