VBScript - 按文件名中的字符串查找文件夹中的文件，将找到的文件移动到不同的文件夹

我仍在学习 VBS，不确定我是否以正确或最有效的方式进行此操作。测试场景如下，除了常规桌面项目之外，我还添加了三个名为：

"Tool - YouTube"
"welcome to facebook"
"BBC news"

当我的代码（底部）运行时，它会按预期创建“Sorted”文件夹（如果它不存在），但“instr”函数只找到并移动“BBC news”文本文件。此外，如果“Sorted”文件夹已存在且其中包含“BBC news”文本文件，则运行脚本将返回。

Line 20
Char 2
Error: File already exists
Code: 800A003A

脚本在工作时应该根据搜索字符串找到“源”文件夹中的任何文件，并将它们移动到另一个“目标”文件夹。如果“目标”文件夹中存在重复项，则应将其替换为“源”文件夹中的文件。请任何人解释我应该应用哪些更改才能使我的脚本正常工作？

dim fso, folder, newfolder, sourcefolder, destfolder, searchname1, searchname2, searchname3

sourcefolder = "C:\Users\...\Desktop"
destfolder = "C:\Users\...\Desktop\Sorted\"
searchname1 = "youtube"
searchname2 = "bbc"
searchname3 = "facebook"

set fso = createobject("scripting.filesystemobject") 
set folder = fso.getfolder(sourcefolder)  

if not fso.folderexists(destfolder) then
    newfolder = fso.createfolder(destfolder)
    wscript.echo "'Sorted' folder created in path: " & vbcrlf & sourcefolder
end if

for each file in folder.files
    x = fso.getbasename(file)
    if instr(lcase(x), searchname1) > 0 or instr(lcase(x), searchname2) or instr(lcase(x), searchname3) then
        fso.movefile sourcefolder & "\" & file.name, destfolder
        wscript.echo"Files moved to 'Sorted' in path: " & vbcrlf & sourcefolder
        wscript.quit()
    else
        wscript.echo "No matches found"
        wscript.quit()
    end if
next

非常感谢 Nathan 的贡献，我稍微开发了代码以包含“不匹配”消息框（如最初的预期）和计数器。我和自己争论过：P 是否应该说明此评论中的以下内容，从接下来的冗长内容中，您可以想象结果是肯定的。

由于我一直使用这些论坛来解决 VBS 问题，因此 Ekkehard 始终是一个快速、可靠的帮助和指导来源，我非常感谢他提供的所有建议，并且我从他的回复中学到了很多东西。然而，我经常在上述回复中想起我在这个问题上的完全无能、无知和混乱——我承认自己是一个需要帮助的微薄学习者。为此，我将并且已经避免对他的援助性质，即他看似粗暴的风格和态度，做出任何谴责性的判断或严厉的批评（毕竟我在这里）以获得答案、解释并向那些有更多经验的人学习），所以我将继续认为他这样做的理由是积极的。我想，毕竟，一个在任何学科上都非常精通的人，如果他愿意的话，可以承受迂腐、居高临下甚至羞辱他人的后果，因为这可能主观上被解释为激励或鞭策像我这样的新手的一种手段。相反，我认为这是一种说教警告，它也可以使人感到沮丧、困惑或阻止他们想要学习……

无论如何，这一切都偏离了主题，即我的OP，已得到答复，我感谢两位好心的先生，你们非常有帮助。我修改后的代码如下。

dim fso, folder, newfolder, sourcefolder, destfolder, searchname1, searchname2, searchname3, i

sourcefolder = "C:\Users\...\Desktop"
destfolder = "C:\Users\...\Desktop\Sorted\"
searchname1 = "youtube"
searchname2 = "bbc"
searchname3 = "facebook"
i = 0

set fso = createobject("scripting.filesystemobject") 
set folder = fso.getfolder(sourcefolder)  

if not fso.folderexists(destfolder) then
newfolder = fso.createfolder(destfolder)
wscript.echo "'Sorted' folder created in path: " & vbcrlf & sourcefolder
end if

for each file in folder.files
x = fso.getbasename(file)
if instr(lcase(x), searchname1) > 0 or instr(lcase(x), searchname2) > 0  or instr(lcase(x), searchname3) > 0 then
    i = i+1
    if fso.fileexists(destfolder & "\" & file.name) then
    fso.deletefile destfolder & "\" & file.name, true
    end if
fso.movefile sourcefolder & "\" & file.name, destfolder 
end if
next

if i>0 then
wscript.echo i&" files moved to 'Sorted' in path: " & vbcrlf & sourcefolder
wscript.quit()
end if

wscript.echo "No matches found"