FileSearch引用无效

用Dir函数代替

比如搜索文件夹C:\test中的所有EXCEL文件，并将搜索到的文件名添加到列表框lstFiles中：

Dim strPath As String
Dim strFile As String

Me.lstFiles.RowSource=""

Me.lstFiles.RowSourceType="Value List"
strPath="C:\test\"

strFile=Dir(strPath & "*.xls")
If strFile<>"" Then Me.lstFiles.AddItem strPath & strFile
Do Until strFile=""
    strFile=Dir()
    If strFile<>"" Then Me.lstFiles.AddItem strPath & strFile
Loop