fso 拒绝访问_VBS中对CopyFile的权限被拒绝

I'm trying to automate pushing a file into my users' home directories, but am stuck on a "Permission Denied" error — is thrown on line 6 here, with the CopyFile call.

There are other parts of the script (not shown) that create and copy folder contents using the same source and destination directories, and they work perfectly. It's only when I use CopyFile that it fails.

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: is a network home directory, to which the current user has full read/write privs.

I've tried adding/removing trailing slashes from the paths, adding "options.txt" to the destination path, removing the false argument... Not sure what else to try. Any thoughts?

FYI, this chunk of code, which comes immediately before the error-prone bit above, executes perfectly every time:

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

解决方案

I've only ever seen CopyFile fail with a "permission denied" error in one of these 3 scenarios:

An actual permission problem with either source or destination.

Destination path is a folder, but does not have a trailing backslash.

Source file is locked by an application.