将除特定文件之外的所有文件移动到文件夹 vbscript答案

【问题标题】：Moving all files except specific file to folder vbscript将除特定文件之外的所有文件移动到文件夹 vbscript
【发布时间】：2017-11-06 18:03:44
【问题描述】：

我正在尝试使用 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

【问题讨论】：

标签： vbscript

【解决方案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

【讨论】：

谢谢！我很难弄清楚这个问题......我在互联网上做了一些研究，但似乎没有任何效果......非常感谢:)