如何在vbscript中复制后删除源文件？

Question

我正在开发将文件从Temp Folder复制到Drive C的功能。 复制后，我想删除Temp文件夹中的文件。 我尝试了以下代码，但无法删除文件。请向我解释。

示例代码：

Set objFSO = CreateObject("Scripting.FileSystemObject")
File = file of Temp Folder
objFSO.CopyFile File, "C:\"
objFSO.DeleteFile(File)

OR

Set objFSO = CreateObject("Scripting.FileSystemObject")
File = file of Temp Folder
objFSO.CopyFile File, "C:\"
Set delFileName = objFSO.GetFile(File)
delFileName.Delete delFileName 

Answer 1

将文件从一个位置复制到C：\然后删除原始位置的版本与移动文件相同，所以请改为：

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile File, "C:\"
Set objFSO = Nothing

如果你真的想以你所描述的方式做到这一点：

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
objFSO.CopyFile File, "C:\"
If Err.Number = 0 Then objFSO.DeleteFile File
On Error Goto 0
Set objFSO = Nothing

会做到这一点。