Discussion :

[NicoNGRI]

Hello,

je souhaite pouvoir afficher la liste des fichiers textes contenus dans un répertoire et ses sous répertoires. Pour le moment j'arrive à le faire pour le répertoire principal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
        Dim fBrowser As New FolderBrowserDialog
        fBrowser.RootFolder = Environment.SpecialFolder.Desktop
        fBrowser.Description = "Sélectionnez un répertoire SVP"
        fBrowser.ShowDialog()
        If fBrowser.SelectedPath = String.Empty Then
            Label1.Text = "Pas de sélection"
        Else
            Label1.Text = fBrowser.SelectedPath
        End If
        fBrowser.Dispose()
 
        ' make a reference to a directory
        Dim di As New IO.DirectoryInfo(fBrowser.SelectedPath)
        Dim diar1 As IO.FileInfo() = di.GetFiles("*.txt")
        Dim dra As IO.FileInfo
 
        'list the names of all files in the specified directory
        For Each dra In diar1
            ListBox1.Items.Add(dra)
        Next

Merci d'avance

[pofet]

A moins qu'il y a ait une fonction, ce qui m'étonnerait à première vue, faudra faire appel à la recursivité.

[NicoNGRI]

ok, première question : c'est quoi la recursivité ?

seconde question : Comment faire ?

[pofet]

Comme je fais pas beaucoup de .NET je vais juste t'écrire l'algo pour que tu vois :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
void maFonctionRecTxt(unRepertoire, unArrayList) {
  Pour (chaque unElement de unRepertoire) {
    If (unElement est un fichier txt) Then
      unArrayList.add(unElement)
    End if
    If (unElement est un repertoire) Then
      maFonctionRecTxt(unElement, unArrayList) ' On rappelle la meme 
          ' fonction, c'est la recursivite
    End if
  }
}
 
' Ailleurs dans le code
maFonctionRecTxt(monRepertoireRoot, unArrayListVideMaisInitialise)

Bon courage

[Aspic]

Il faut utiliser une fonction recursive :

La récursivité consiste a appeler une fonction dans la meme fonction :

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub MaFonction(Rep as String) as String
 'code ici
  MaFonction("test") 'appelle de nouveau MaFonction
End Sub

Pour un exemple de listage d'un répertoire et de ses sous repertoire dans une ListBox ===> Go here

[hulahup]

Sous VS 2005 Framework 2, il me semble qu'il y a plus simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
My.Computer.FileSystem.GetFiles(chemindetonrépertoire, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")

En boucle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
For Each fichier As String In My.Computer.FileSystem.GetFiles(chemindetonrépertoire, _
FileIO.SearchOption.SearchAllSubDirectories, "*.txt") 'tous les sous-dossiers sont pris
'code
next