Advanced Search

[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

Expand | Embed | Plain Text

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.