搜索指定文件夹中的文件

FileSearch对象是Office系统在2002版本新增加的对象。用FileSearch 属性可返回 FileSearch 对象，可实现查找指定文件并显示找到的文件数及每个找到的文件的标题。

With Application.FileSearch
    .NewSearch
    .LookIn = "C:\My Documents"
    .SearchSubFolders = True
    .FileName = "Run"
    .MatchTextExactly = True
    .FileType = msoFileTypeAllFiles
End With

使用注意:     需要引用Microsoft Office 10.0 Object Library 或更高版本