我正在制作一个项目,通过创建一个脚本来在工作中使用来自动化我们的一个流程。
我希望脚本检查用户名的输入,以搜索指定的用户配置文件路径中的任何 .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
当目标是文件夹时,尾部反斜杠是必需的,否则您必须指定包括目标文件名的完整目标路径。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)