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

Question

我有一个 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\*.xml*"" /S /B /A:-D")

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

Answer 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

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

How can my DIR path be narrowed down better with unknown folder name in the path?

directory

vba

cmd