Return to Snippet

Revision: 77126
at August 23, 2019 03:03 by martinbrait


Initial Code
Private ListeInfo As New ArrayList
  
' La fonction qui va remplir notre arraylist
Private function ListeFichier(ByVal repertoire As DirectoryInfo, ByVal Reset As Boolean) as arraylist

        If Reset = True Then
            ListeInfo.Clear()
        End If

        If repertoire.GetDirectories.Length <> 0 Then
            For Each repertoire2 As DirectoryInfo In repertoire.GetDirectories
                ListeFichier(repertoire2, False)
            Next
        End If

        For Each fichier As FileInfo In repertoire.GetFiles("*.*")
   
            ListeInfo.Add(fichier.Name)
        Next

return ListeInfo

End function


'Pour appeler la fonction on fait ListeFichier("C:/",true)
'Le booleen en parametre veut dire qu'on efface tout ce qu'il y a déjà dans l'arraylist

Initial URL

                                

Initial Description
list files from directory and subdirectory into a table

'On déclare une arraylist qui contiendra tous les fichiers

Initial Title
[vbnet] [directory] lister les fichiers d'un répertoire et d'un sous-répertoire dans un tableau

Initial Tags
list, array, files, directory

Initial Language
VB.NET