如何使用路径中的未知文件夹名称更好地缩小我的 DIR 路径？答案

【问题标题】：How can my DIR path be narrowed down better with unknown folder name in the path?如何使用路径中的未知文件夹名称更好地缩小我的 DIR 路径？
【发布时间】：2021-05-02 12:57:39
【问题描述】：

我有一个 vba 脚本，它将使用 CMD 循环遍历文件夹中的所有 xml 文件，如下所示

CreateObject("WScript.Shell").Exec("CMD /C DIR ""D:\data\*.xml*"" /S /B /A:-D")

如何更改路径，使其仅查看名为“1”的文件夹，而忽略名为“2”、“3”等的文件夹，其中之前路径中存在未知文件夹名称，如下所示？

CreateObject("WScript.Shell").Exec("CMD /C DIR ""D:\data\UNKNOWN\1\*.xml*"" /S /B /A:-D")

这会将返回的路径数从 34,000 缩小到 1500

【问题讨论】：

Search for a file with wildcards in the path using Windows command line
^^ 我只是建议为 UNKNOWN 添加一个较早的通配符
我自己发现了这个，该死的，我可以在 vba 中使用 cmd 的 powershell 插入吗？
你也可以用CMD，看我的回答。
不幸的是，尝试使用 powershell 时出现访问被拒绝错误

标签： vba cmd directory

【解决方案1】：

试试这个：

Sub test()

Dim list As Variant

list = Split(CreateObject("WScript.Shell").Exec("CMD /C DIR /S /B  D:\data\* | findstr 1 | findstr xml").StdOut.ReadAll, vbNewLine)

End Sub

【讨论】：

hmmm 我收到了 0 个返回的文件，这是 1 和 xml 引号的正确语法吗？
设法让它与CreateObject("WScript.Shell").Exec("CMD /C DIR /S /B D:\data\*.xml | findstr 1")一起工作谢谢你的帮助