0

私は再び立ち往生しています。できれば助けてください。本当に感謝しています。

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ファイルを見つけて読むことができますか?

xoありがとうございます。良い一日をお過ごしください。

4

1 に答える 1

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
于 2012-02-17T14:42:05.297 に答える