ASP.NET - CHARGER TOUS LES SOUS-RÉPERTOIRES DANS UN DATATABLE

' -----------------------------------------------------
' Fonction très simple qui charge dans un DataTable à 2 colonnes la liste 
' des sous-Répertoires d'un répertoire trasmis en paramètre
' Le paramètre sera du Type : C:\MonRepertoire

Private Function ChargeListeSousRep(ByVal Racine As String) As DataTable
 Dim LaTableTemp As New System.Data.DataTable()
 Dim myColumn As DataColumn = New DataColumn()
 Dim myRow As DataRow

 ' Paramétrage des Colonnes
 myColumn.DataType = System.Type.GetType("System.String")
 myColumn.AllowDBNull = False
 myColumn.Caption = "Chemin"
 myColumn.ColumnName = "Chemin"
 LaTableTemp.Columns.Add(myColumn)

 myColumn = New DataColumn()
 myColumn.DataType = System.Type.GetType("System.String")
 myColumn.Caption = "Nom"
 myColumn.ColumnName = "Nom"
 LaTableTemp.Columns.Add(myColumn)

 Dim ListeSousRepertoires As String() = System.IO.Directory.GetDirectories(Racine)
 Dim PosFinale As Integer = Racine.Length

 Dim subdirectory As String
 For Each subdirectory In ListeSousRepertoires
  myRow = LaTableTemp.NewRow()
  myRow("Chemin") = subdirectory
  myRow("Nom") = subdirectory.Substring(PosFinale + 1)
  LaTableTemp.Rows.Add(myRow)
 Next subdirectory

 Return LaTableTemp
End Function

' ---------------------------------------------
' Le résultat sera de la forme :
' C:\MonRepertoire\Repertoire1 | Repertoire1
' C:\MonRepertoire\Repertoire2 | Repertoire2
' C:\MonRepertoire\Repertoire3 | Repertoire3
' C:\MonRepertoire\Repertoire4 | Repertoire4