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
'µ÷ÓÃʾÀý  Private Sub Form_Load()
' * ÐǺűíʾ¶à¸öÈÎÒâ×Ö·û
SearchFiles "C:\Program Files\WinRAR\", "*" '²éÕÒËùÓÐÎļþ
        '  SearchFiles "C:\Program Files\WinRAR\", "*.exe" '²éÕÒËùÓÐexeÎļþ    '  SearchFiles "C:\Program Files\WinRAR\", "*in*.exe" '²éÕÒÎļþÃûÖаüº¬ÓÐ in µÄexeÎļþ    End Sub