Question

我试图使用vbscript将我的所有文件移动到另一个文件夹但不知怎的，我似乎无法正确使用它。我已经执行了我的代码，但我不想要的文件名也移动到我创建的文件夹中。你能帮我解决这个问题吗？

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder("C:\Users\Users\Desktop\Other Files\Excel 
Files")

If objFolder.Name <> "TestResults.xlsx" Then

objFSO.Movefile "C:\Users\Users\Desktop\Other Files\Excel Files\*", 
"C:\Users\Users\Desktop\Sample Folder"

End If

Answer 1

我已经执行了我的代码，但我不想要的文件名也移动到我创建的文件夹中。

因为您使用了*

，因此您正在移动所有文件

您的代码（例如If objFolder.Name <> "TestResults.xlsx"）几乎没有问题，即使您的对象仅涉及文件夹。

然后你移动了所有文件 - 你必须遍历文件夹并过滤掉不要移动的文件

尝试以下代码

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\Users\Desktop\Other Files\Excel Files").Files

For Each objFile In objFolder
    If objFile.Name <> "TestResults.xlsx" Then
        objFSO.MoveFile objFile.Path, "C:\Users\Users\Desktop\Sample Folder\"
    End If
Next

将除特定文件以外的所有文件移动到文件夹vbscript

1 个答案: