| ■No85985 (こんなのお さん) に返信
クラスを使うならLINQに丸投げしちゃいましょう
Class Item
Public Property DateMod As Date
Public Property filepath As String
End Class
Sub Main()
Dim Data = {
New Item() With {.DateMod = New Date(2017, 12, 3), .filepath = "c:\a.txt"},
New Item() With {.DateMod = New Date(2017, 12, 2), .filepath = "c:\b.txt"},
New Item() With {.DateMod = New Date(2017, 12, 1), .filepath = "c:\c.txt"}
}
Dim dateSorted = Data.OrderBy(Function(item) item.DateMod)
For Each item In dateSorted
Console.WriteLine(item.filepath)
Next
Console.ReadKey()
End Sub
|