Wenn die im Filesystem liegenden Dateien nach dem Änderungsdatum sortiert ausgegeben werden sollen, muss man sich zuerst einen kleinen Helper schreiben, der die Sortierung übernimmt:
Public Class Sorter
Implements IComparer
Public Function CompareDesc(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
Dim F1 As FileInfo = DirectCast(x, FileInfo)
Dim F2 As FileInfo = DirectCast(y, FileInfo)
CompareDesc = DateTime.Compare(F1.LastWriteTime, F2.LastWriteTime)
End Function
End Class
dann kann man die Files folgendermassen sortieren und z.B. in einer Dropdown Liste ausgeben:
Dim Dir As New DirectoryInfo("d:\import")
Dim Files() As FileInfo = Dir.GetFiles("*.jpg")
Array.Sort(Files, New Sorter)
ddlFiles.Items.Clear()
For Each FI As FileInfo In Files
ddlFiles.Items.Add(New ListItem(String.Format("{0:dd}.{0:MM}.{0:yy} {0:HH}:{0:mm} - {1}", FI.LastWriteTime, FI.Name), FI.FullName))
NextDiesen Hinweis habe ich hier gefunden.
f96f3daa-54b4-46a9-885b-a955507e5e3e|0|.0