███████VB在一个文件夹下 获得后缀为txt 的文件名

Function TreeSearch(ByVal sPath As String, ByVal sFileSpec As String, sFiles() As String, Obj As Object) As Long
Static lFiles As Long '文件数目
Dim sDir As String
Dim sSubDirs() As String '存放子目录名称
Dim lIndex As Long
On Error Resume Next
If Right(sPath, 1) <> "\" Then sPath = sPath & "\" '判断是否有"\",如果没有则添加
sDir = Dir(sPath & sFileSpec, 33)
'获得当前目录下文件名和数目
Do While Len(sDir)
lFiles = lFiles + 1
ReDim Preserve sFiles(1 To lFiles)
sFiles(lFiles) = sPath & sDir
sDir = Dir
Obj.Caption = sPath & sDir
DoEvents
Loop

End Function
参考一下，不懂留言