返回一个 FileSearch 对象,该对象可用于以绝对路径或相对路径的方式搜索文件。只读。
本示例显示“My Documents”文件夹中所有以“New”开头的文件名称。
With Application.FileSearch
.FileName = "New*.*"
.LookIn = "C:\My Documents"
.Execute
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next
End With