时间戳

首页 > 解决方案 > 如何使用路径中的未知文件夹名称更好地缩小我的 DIR 路径？

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

问题描述

我有一个 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

标签： vbacmddirectory

解决方案

试试这个：

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

推荐阅读