Recherche de fichiers dans un répertoire et tous les sous-répertoire (sur plusieurs niveaux).

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 464 fois - Téléchargée 33 fois

Commenter

Contenu du snippet

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).

Source / Exemple : 


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

Conclusion :


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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.