将特定文件复制到当前目录-Microsoft VBScript运行时错误'800a0046'

Question

如何将特定文件复制到当前目录：我收到以下错误：

Microsoft VBScript runtime error '800a0046' Permission denied

行：5字符：1

运行简单副本时：

dim fso
set fso = CreateObject("Scripting.FileSystemObject")
dim CurrentDirectory
CurrentDirectory = fso.GetAbsolutePathName(".")
fso.CopyFile "d:\eula.1028.txt", "D:\Back up"

Answer 1

您是否已经检查了目标文件夹的用户权限？

我没有注意到您没有在目的地中指定文件名的事实。 它应如下所示：

fso.CopyFile“ d：\\ eula.1028.txt”，“ D：\\ Backup \\ eula.1028.txt”

或为目的地指定另一个新名称。

安杰洛

Answer 2

可以如下将一个特定文件添加到当前目录：

dim fso
set fso = CreateObject("Scripting.FileSystemObject")
dim CurrentDirectory
CurrentDirectory = fso.GetAbsolutePathName(".")
fso.CopyFile "d:\eula.1028.txt", "CurrentDirectory", True

Answer 3

通过在目标路径上不包含最后一个\\ ，可能会收到此错误。

D:\\Back up而不是D:\\Back up\\

关于语法多一点的信息在这里