VB编程 做搜索工具

'** 函数名称： GetFiles
'** 函数作用： 取得某个目录下的指定类型的文件名
'** 参数说明：
'** strSourceFolder 指定的目录，如：C:\
'** strReturn 要保存文件名的数组
'** strType 文件类型，如：mp3，多个时可用 , 分隔
'** strCondition 用来判断文件中是否包含这个字符串，可选，如：阿桑
'** blnSearchSubFolder 是否搜索子目录
'** 函数输出：
'** strReturn 一组文件名
'** 函数返回：
'** True 函数执行成功
'** False 函数执行失败
'** 函数举例：
'** Dim strFolders() As String
'**
'** Call GetFiles("C:\MyMusic\",strFolders,"mp3","阿桑")
'************************************************
Public Function GetFiles(ByVal strSourceFolder As String, _
ByRef strReturn() As String, _
Optional ByVal strType As String = "*", _
Optional ByVal strCondition As String = "", _
Optional ByVal blnSearchSubFolder As Boolean = False) As Boolean

Dim strFileName As String ' 文