Question

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

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

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

行：17

Char：10

错误：文件已存在

代码：800A003A

来源：Microsoft VBScript运行时错误

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

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

How to move files from a directory to another directory based on file size

' use a default source path
dim sourcepath: sourcepath = "C:\users\bmcwilliams\Desktop\TestUncompleted"

' use a default destination path
dim destinationpath: destinationpath = "C:\users\bmcwilliams\Desktop\TestCompleted"

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:\users\bmcwilliams\Desktop\TestCompleted\"

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

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

2 个答案: