FileSystemObject.CopyFile 无法将文件从一个文件夹复制到另一个文件夹

Question

我有一段 VBS 代码，其中一个文件 (C:\test.txt) 应该被复制到一个新创建的临时文件夹中。但是它无法复制文件。奇怪的是，当我在源参数 (C:\ *est.txt) 中包含通配符时，同样的函数工作正常。任何建议都会很有帮助。

set fso = createobject("Scripting.FileSystemObject")
if fso.FileExists(src_temp) then
    'src_temp contains the file path.

    'Path of the temporary folder
    Set tmp_fld = fso.GetSpecialFolder(TemporaryFolder)
    tmp_fld = tmp_fld & "\OldFiles_tmp"

    'Create the temporary folder if does not exist
    If Not fso.FolderExists(tmp_fld) Then 
        fso.CreateFolder(tmp_fld)   
    End If

'Copy the files to temporary path
On Error Resume Next
fso.CopyFile src_temp, tmp_fld, True 'last parameter is set as true for overwriting the existing
On Error Goto 0

End If

我已经验证了是否创建了目标临时文件夹以及路径和其他内容。路径中的通配符如何使 CopyFile 工作并且同样不适用于完整的文件名。还有这个问题怎么解决？

Answer 1

在 destination 文件夹末尾加一个反斜杠 (\):

tmp_fld = tmp_fld & "\OldFiles_tmp\" 'note the \

我测试过，它对我有用。但是，奇怪的是，通配符在原始源代码中对我不起作用。

FileSystemObject.CopyFile 无法将文件从一个文件夹复制到另一个文件夹

FileSystemObject.CopyFile is not able to copy file from one folder to another

vbscript

filesystemobject

file-copying