ASP.NET - SAUVEGARDER DANS UN FICHIER XML LA LISTE DES FICHIERS PRÉSENTS DANS UN RÉPERTOIRE DONNÉ

...
    Private DataSetListeFichier As New DataSet("ListeFichiers")
    Private DateBase As DateTime = CType("01-01-1900", DateTime)

...

    ' -----------------------------------------------------
    Private Sub ScanImagesfilesToXML()
        ' Lance le Scan des fichiers du répertoire afin de les sauvegarder dans un fichier XML 
        ChargeListeSousRep(System.Configuration.ConfigurationSettings.AppSettings("CheminImages"))

        DataSetListeFichier.WriteXml("ListeFichier.xml")
    End Sub

    ' -----------------------------------------------------
   Private Sub ChargeListeSousRep(ByVal Racine As String)

        Dim myFileInfo As FileInfo
        Dim myDirInfo As DirectoryInfo
        Dim TableauFileInfo As Array
        Dim myRow As DataRow
        Dim myDataView As DataView
        Dim CheminRep As String = Racine

        PrepareDatatable()

        myDirInfo = New DirectoryInfo(CheminRep)
        If myDirInfo.Exists Then
            TableauFileInfo = myDirInfo.GetFiles()
            For Each myFileInfo In TableauFileInfo
                Console.WriteLine("Fichiers : " & myFileInfo.Name)
                myRow = DataSetListeFichier.Tables("Fichiers").NewRow()
                myRow("LIBELLE") = myFileInfo.Name
                myRow("CHEMIN_FICHIER") = CheminRep & "\" & myFileInfo.Name
                myRow("DATE_FICHIER") = myFileInfo.LastWriteTime
                myRow("COMMENTAIRE_FICHIER") = "Fichier " & myFileInfo.Extension.ToUpper.ToString.Trim & " - Taille : " & FormatteTailleFichier(myFileInfo.Length)
                myRow("TYPE_FICHIER") = myFileInfo.Extension.Replace(".", "").Trim.ToString.ToUpper
                DataSetListeFichier.Tables("Fichiers").Rows.Add(myRow)
            Next myFileInfo

            ' Create a new DataView and sort it based on the field passed in.
            myDataView = DataSetListeFichier.Tables("Fichiers").DefaultView
            myDataView.Sort = "LIBELLE"
        End If

    End Sub

    ' -----------------------------------------------------
    Private Function RecupDateFichier(ByVal CheminFichier As String) As DateTime
        If CheminFichier = "" OrElse Not System.IO.File.Exists(CheminFichier) Then
            Return DateBase
        Else
            Return System.IO.File.GetLastWriteTime(CheminFichier)
        End If
    End Function

    ' ------------------------------------------------------------------------------
    Public Function FormatteTailleFichier(ByVal NombreOctets As String) As String

        Dim Val As Int64 = CType(NombreOctets, Int64)
        If (Val / 1000000000) > 1 Then
            Return Math.Round(Val / 1000000000, 2) & " Go"
        ElseIf (Val / 1000000) > 1 Then
            Return Math.Round(Val / 1000000, 2) & " Mo"
        Else
            Return Math.Round(Val / 1000, 2) & " Ko"
        End If
    End Function

    ' -----------------------------------------------------
    Private Sub PrepareDatatable()

        Dim myColumn As DataColumn = New DataColumn()
        Dim TableTemp As New DataTable("Fichiers")

        myColumn.DataType = System.Type.GetType("System.String")
        myColumn.AllowDBNull = False
        myColumn.Caption = "LIBELLE"
        myColumn.ColumnName = "LIBELLE"
        TableTemp.Columns.Add(myColumn)

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

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

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

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

        DataSetListeFichier.Tables.Add(TableTemp)

    End Sub