VB.Net Lire qu'un Répertoire dans ma Boucle

Question

Bonjour

J'utilise une boucle pour me "Lister" tous le sfichier présent dans mes répertoires.

Dans mon Tableau "Tableau_Repertoire" J'ai trois répertoires
c:\1
C:\1\2
c:\1\2\3

Je veux que ma boucle fouille dans chacun des répertoire et affiche mes fichiers mais pour une raison que j'ignore lorsque je suis dans ma premiere boucle, ca fouille dans c:\1 et c:\1\2. 

Pourquoi ca ne reste pas dans le premiere répertoire ??? (c:\1)

J'arrive donc à avoir plein de doublons dans mon Tableau_Fichier

Merci de votre aide 



For i = 0 To UBound(Tableau_Repertoire)
            For Each Fichier As String In System.IO.Directory.GetFiles(Tableau_Repertoire(i), "*.*", IO.SearchOption.AllDirectories)
                If Count_Fichier = 0 Then
                    ReDim Tableau_Fichier(Count_Fichier)
                Else
                    ReDim Preserve Tableau_Fichier(Count_Fichier)
                End If
                If Fichier Is Nothing Then
                Else
                    Tableau_Fichier(Count_Fichier) = Fichier
                    Count_Fichier = Count_Fichier + 1
                End If
            Next
        Next i

cs_Jack · Answer

Salut
Vérifie dans l'aide ce que représente le paramètre IO.SearchOption.AllDirectories

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_ssefyou · Answer

Salut
je crois que tu as compliqué un peu les choses , il suffit de créer un seul tableau et de dire a la fonction Getfiles de récupérer les fichiers du dossier parent et  des sous dossiers via le paramètre SearchOption.AllDirectories

dim Tableau_Fichier() as String =System.IO.Directory.GetFiles("c\:1","*.*",IO.SearchOption.AllDirectories) 


@+  ^_^

VB.Net Lire qu'un Répertoire dans ma Boucle

2 réponses

Votre réponse

Discussions similaires