文件搜索严格性问题

经过一些研究和玩弄,我得出结论,没有长度检查的精确匹配是不可能的。

Btw. Application.FileSearch object isn't longer available 从Office2007+开始,因此可以考虑使用 FileSystemObject 相反

尝试使用 NewSearch 方法如下:

Dim Invoices As FileSearch
Set Invoices = Application.FileSearch

With Invoices
    .NewSearch
    .Filename = "??.??.????.xls"
    '' invDir is a directory I chose earlier on
    .LookIn = invDir
    .SearchSubFolders = True
    .MatchTextExactly = True
End With

文档中的注释使我相信搜索条件尚未设置/重置:

保留搜索条件设置 在整个应用程序会话中。使用 每次你改变这个方法 搜索条件。这个方法不会 重置lookin的值 财产。