devi creare una classe che implementi l'interfaccia IComparer ed un metodo Compare che implementi IComparer.Compare ed il codice x il sort che vuoi fare, esempio:
codice:
Private Class FileDateSorter : Implements IComparer
Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
Dim xFi As System.IO.FileInfo = CType(x, System.IO.FileInfo)
Dim yFi As System.IO.FileInfo = CType(y, System.IO.FileInfo)
If xFi.CreationTime < yFi.CreationTime Then Return 1
If xFi.CreationTime > yFi.CreationTime Then Return -1
If xFi.CreationTime = yFi.CreationTime Then Return 0
End Function
End Class
e poi utilizzare FileInfo e DirectoryInfo di System.IO
codice:
Dim fileInfos() As System.IO.FileInfo
Dim dirInfo As New System.IO.DirectoryInfo("c:\dirname")
fileInfos = dirInfo.GetFiles
fileInfos.Sort(fileInfos, New FileDateSorter)
non ho provato ma il concetto è quello