Question

我有一段VBS代码，其中应将文件（C：\ test.txt）复制到新创建的临时文件夹中。但它无法复制文件。奇怪的是，当我在源参数（C：\ * \ test.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

在destiny文件夹的末尾添加反斜杠（\）：

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

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

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

1 个答案: