miaozk2006

Private Function SearchFiles(Path As String, FileType As String)
Dim Files() As String 'Îļþ·¾¶
Dim Folder() As String 'Îļþ¼Ð·¾¶
Dim a, b, c As Long
Dim sPath As String
If Right(Path, 1) <> "\" Then Path = Path & "\"
sPath = Dir(Path & FileType) '²éÕÒµÚÒ»¸öÎļþ

Do While Len(sPath) 'Ñ­»·µ½Ã»ÓÐÎļþΪֹ
a = a + 1
ReDim Preserve Files(1 To a)
Files(a) = Path & sPath '½«ÎļþĿ¼ºÍÎļþÃû×éºÏ,²¢´æ·Åµ½Êý×éÖÐ
List1.AddItem Files(a) '¼ÓÈëlist¿Ø¼þÖÐ
sPath = Dir '²éÕÒÏÂÒ»¸öÎļþ

DoEvents 'Èóö¿ØÖÆȨ
Loop

sPath = Dir(Path & "\", vbDirectory) '²éÕÒµÚÒ»¸öÎļþ¼Ð

Do While Len(sPath) 'Ñ­»·µ½Ã»ÓÐÎļþ¼ÐΪֹ

If Left(sPath, 1) <> "." Then 'ΪÁË·ÀÖ¹Öظ´²éÕÒ
If GetAttr(Path & "\" & sPath) And vbDirectory Then 'Èç¹ûÊÇÎļþ¼ÐÔò¡£¡£¡£¡£¡£¡£
b = b + 1
ReDim Preserve Folder(1 To b)
Folder(b) = Path & sPath & "\" '½«Ä¿Â¼ºÍÎļþ¼ÐÃû³Æ×éºÏÐγÉеÄĿ¼,²¢´æ·Åµ½Êý×éÖÐ
End If
End If

sPath = Dir '²éÕÒÏÂÒ»¸öÎļþ¼Ð

DoEvents 'Èóö¿ØÖÆȨ
Loop

For c = 1 To b 'ʹÓõݹ鷽·¨£¬±éÀúËùÓÐĿ¼
SearchFiles Folder(c), FileType
Next

End Function

 ¸ü¶à¾«²Ê>>>