最後の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