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
