VBS 脚本查找特定扩展名的所有文件并将它们复制到特定目的地

我正在制作一个项目，通过创建一个脚本来在工作中使用来自动化我们的一个流程。

我希望脚本检查用户名的输入，以搜索指定的用户配置文件路径中的任何 .doc、.docx、.pdf、.pst 等文件。并将它们按原样复制到网络驱动器位置上创建的文件夹中。

我的主要问题是检查从指定用户路径开始的文件夹和子文件夹的命令或命令链是什么，对于具有这些扩展名的文件，我想复制它们，但不会达到仅复制相同文件的情况，并且一遍又一遍地。抱歉，如果这令人困惑。

这个答案 https://stackoverflow.com/a/14965606/1630171提供用于递归遍历文件夹树的示例代码。可以通过创建字典来处理扩展列表：

Set extensions = CreateObject("Scripting.Dictionary")
extensions.CompareMode = vbTextCompare  'case-insensitive
extensions.Add "doc", True
extensions.Add "docx", True
extensions.Add "pdf", True
extensions.Add "pst", True
...

然后检查已处理文件的扩展名，如下所示：

For Each f In fldr.Files
  If extensions.Exists(objFso.GetExtensionName(f.Name)) Then
    f.Copy targetFolder & "\"
  End If
Next

当目标是文件夹时，尾部反斜杠是必需的，否则您必须指定包括目标文件名的完整目标路径。