将修改的文件移动到另一个文件夹的 VBScript

Question

基本上，我需要一个脚本将文件移动到另一个已被访问和修改的文件夹。

我是脚本新手，所以这可能是一个简单的问题，但我被难住了。 这是我得到的错误：

脚本： C：\Users\bmcwilliams\Desktop\pssitest.vbs

行： 17

字符：10

错误：文件已存在

编号： 800A003A

来源： Microsoft VBScript 运行时错误

目标文件夹为空，所以我不确定发生了什么。

下面是我的代码。 它是根据这篇文章中列出的代码修改的：

如何根据文件大小将文件从一个目录移动到另一个目录

' use a default source path
dim sourcepath: sourcepath = "C:usersbmcwilliamsDesktopTestUncompleted"
' use a default destination path
dim destinationpath: destinationpath = "C:usersbmcwilliamsDesktopTestCompleted"
dim fso: set fso = CreateObject("Scripting.FileSystemObject")
dim sourcefolder: set sourcefolder = fso.GetFolder(sourcepath)
' loop through each file in the directory, compare size property against
' the limit and copy as appropriate
dim file, count: count = 0
for each file in sourcefolder.Files
    dim createDate: createDate = file.DateCreated
    dim modifyDate: modifyDate = file.DateLastModified
    if createDate <> modifyDate Then
         file.Move destinationpath
         count = count + 1
    end if
next
WScript.Echo("complete: " & count & " file(s) moved")

有什么想法吗？ 任何意见都非常感谢。谢谢！

Answer 1

您正在复制到新位置，但不提供文件的新名称。 若要解决此问题，请将 \ 和文件名附加到目标路径。

file.Move destinationpath +"" + file.name

Answer 2

如果移动文件的目标路径是文件夹而不是完整路径（包括目标文件名），则必须具有尾随反斜杠：

destinationpath = "C:usersbmcwilliamsDesktopTestCompleted"

否则，Move操作将检测到目标（文件夹）已存在，因此将失败。