Как загрузить последний XML-файл и поместить его в набор данных vb.net

Question

Я снова застрял. Пожалуйста, помогите, если кто-нибудь из вас может. Я действительно ценю это.

Я создаю XML-файлы и загружаю их снова. Я использую этот следующий код для записи XML в папку. код ниже установит дату и время в имени файла. и этот код работает нормально.

    Dim filename As String = Server.MapPath("XML\" & SESSIONid & "_" & Replace(timenow, ":", "-") & ".xml")
    dSetPupil.WriteXml(filename, True)

Опять же, я хочу загрузить последний XML-файл обратно и поместить в набор данных. Я обычно пишу код вроде

    Dim dSet as new DataSet = ReadXml(Server.MapPath("AAA.xml")

Но как я могу найти последний XML-файл и прочитать его?

Большое спасибо. Надеюсь, вы, ребята, хорошего дня.

Answer 1

Dim strLastXmlFileWritten As String = String.Empty

Dim lstFiles As List(Of IO.FileInfo) = New IO.DirectoryInfo(Server.MapPath("XML\")).GetFiles().ToList()

Dim dteCreated As Date = DateTime.MinValue

For Each objFile As IO.FileInfo In lstFiles

    If objFile.CreationTime > dteCreated AndAlso _
       objFile.Extension = ".xml" Then

        dteCreated = objFile.CreationTime
        strLastXmlFileWritten = objFile.FullName

    End If

Next