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

---

Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

Cette procédure permet de rechercher dans un répertoire et TOUS ses sous-répertoires les fichiers ayant un nom structuré d'une certaine façon (par exemple TOTO*.xls).

L'élément Application.FileSearch ayant disparu dans le passage de VB 6.0 à VB.NET, les fonctions disponibles aujourd'hui permettent de rechercher des fichiers dans un répertoire mais pas dans les sous-répertoires (de premier niveau ou des autres 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

Attention, il faut compléter ce source avec une gestion d'erreur, du genre vérifier que le fichier chemin existe bien, que la structure file ne contient pas de caractère interdit.

Salutations

• LAUTREESIZE
• MP3REN - RENOMMEUR DE MP3
• [VB6] YMXPLORER : DOUBLE EXPLORATEUR DE FICHIERS
• CREATION DE FICHIER ASX POUR LECTURE EN STREAMING SUR UN SITE WEB
• CHKDSKSPC- CHECK DISK SPACE / AFFICHAGE DE L'ÉTAT D'OCCUPATION DES DISQUES