Set s = Application.FileSearch 提示Application.FileSearch=<对象不支持该动作> 请问是什么原因 谢谢

Sub t()
Dim s As FileSearch '定义一个文件搜索对象
Set s = Application.FileSearch
s.LookIn = "c:\" '注意路径，换成你实际的路径
s.Filename = "*.*" '搜索所有文件
s.Execute '执行搜索
Cells.Delete '表格清空
For i = 1 To s.FoundFiles.Count
Cells(i, 1) = s.FoundFiles(i) '每一行第一列填写一个文件名
Next
End Sub

用的是2007版的吗？
2007版的 Set s = Application.FileSearch 功能取消了。。。

搜一下：Set s = Application.FileSearch 提示Application.FileSearch=<对象不支持该动作> 请问是什么原因 谢谢