RECHERCHE DE FICHIERS DANS UN RÉPERTOIRE ET TOUS LES SOUS-RÉPERTOIRE (SUR PLUSIEURS NIVEAUX).

Private Sub Recursive(ByRef files As String(), ByVal file As String, ByVal chemin As String)

'## files est le tableau des fichiers trouvés.
'## file est la structure utilisée pour la recherche.
'## chemin est le répertoire de base dans lequel s'effectue la recherche.

        Dim souschemins As String() '## Ensemble des sous-répertoire du répertoire chemin.
        Dim souschemin As String    '## Sous-répertoire dans lequel se poursuit la recherche.
        Dim fichiers As String()    '## Ensemble des fichiers trouvés dans le répertoire   
                                    '## chemin et correspondant à la structure file.
                                    '## Il correspond au tableau files mais pour le 
                                    '## répertoire en cours de traitement.
        Dim i As Integer            '## Compteur des fichiers trouvés dans le répertoire en 
                                    '## cours de traitement.
        Dim dimens As Integer       '## Dimension du tableau files avant qu'il soit       
                                    '## redimensionné.

        fichiers = System.IO.Directory.GetFileSystemEntries(chemin, file)
        If fichiers.Length > 0 Then
            If files Is Nothing Then
                ReDim files(fichiers.Length - 1)
            Else
                dimens = files.Length
                ReDim Preserve files(files.Length + fichiers.Length - 1)
            End If

            For i = 0 To fichiers.Length - 1
                files(dimens + i) = fichiers(i)
            Next
            souschemins = System.IO.Directory.GetDirectories(chemin)
            For Each souschemin In souschemins
                Recursive(files, file, souschemin)
            Next
        End If
    End Sub