特定的文件複製到當前目錄 - 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

您是否已經檢查過目標文件夾的用戶權限？

我沒有注意到您沒有在目的地中指定文件的名稱。它sholud如下：

fso.CopyFile 「d：\ eula.1028.txt」， 「d：\備份\ eula.1028.txt」

或目的地指定其他neew不同的名稱。

安傑洛。

Answer 2

它可以如下特定文件到當前目錄：

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