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


/ Published in: VB.NET
Save to your folder(s)

list files from directory and subdirectory into a table

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


Copy this code and paste it in your HTML
  1. Private ListeInfo As New ArrayList
  2.  
  3. ' La fonction qui va remplir notre arraylist
  4. Private function ListeFichier(ByVal repertoire As DirectoryInfo, ByVal Reset As Boolean) as arraylist
  5.  
  6. If Reset = True Then
  7. ListeInfo.Clear()
  8. End If
  9.  
  10. If repertoire.GetDirectories.Length <> 0 Then
  11. For Each repertoire2 As DirectoryInfo In repertoire.GetDirectories
  12. ListeFichier(repertoire2, False)
  13. Next
  14. End If
  15.  
  16. For Each fichier As FileInfo In repertoire.GetFiles("*.*")
  17.  
  18. ListeInfo.Add(fichier.Name)
  19. Next
  20.  
  21. return ListeInfo
  22.  
  23. End function
  24.  
  25.  
  26. 'Pour appeler la fonction on fait ListeFichier("C:/",true)
  27. 'Le booleen en parametre veut dire qu'on efface tout ce qu'il y a déjà dans l'arraylist

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.