Private Function TreeSearch(ByVal sPath As String, ByVal sFileSpec As String) As Long

   DoEvents

   Static Files As Long

   Dim sDir As String

   Dim sSubDirs() As String

   Dim Index As Long

   Dim sFiles() As String

   

   If Right(sPath, 1) <> "\" Then sPath = sPath & "\"

   '获取文件名和数目

   

   sDir = Dir(sPath & sFileSpec)

   

   Do While Len(sDir)

   

      Files = Files + 1

      ReDim Preserve sFiles(1 To Files)

      sFiles(Files) = sPath & sDir

     

      '显示到列表

      List1.AddItem sFiles(Files)

      List1.ListIndex = List1.ListCount - 1

     

      sDir = Dir

   Loop

   '获取文件夹名称

   Index = 0

   sDir = Dir(sPath, vbDirectory)

   Do While Len(sDir) 'sDir <> ""

       If sDir <> "." And sDir <> ".." Then

           If GetAttr(sPath & sDir) And vbDirectory Then

               Index = Index + 1

               ReDim Preserve sSubDirs(1 To Index)

               sSubDirs(Index) = sPath & sDir & "\"

           End If

       End If

       sDir = Dir

   Loop

   '递归调用，获取子文件夹目录

   For Index = 1 To Index

       Call TreeSearch(sSubDirs(Index), sFileSpec)

   Next Index

   TreeSearch = Files

End Function

Private Sub Command1_Click()

   

   Print TreeSearch(Text1.Text, Combo1.Text)

   

End Sub

Private Sub Command2_Click()

   End

End Sub

'Private Sub Command3_Click()

'    List1.Clear

'End Sub

Private Sub Form_Load()

   Text1.Text = "D:\vb小程序\vb实例"

   Dim spec As Variant

   spec = Array("*.*", "*.exe", "*.vbp")

   Combo1.Text = spec(0)

   For i = 0 To UBound(spec)

       Combo1.AddItem spec(i)

   Next i

End Sub