xml - 如何加载最后一个 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 文件并阅读它呢？

非常感谢x。希望你们度过愉快的一天。

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