Binaryworld - How to find and sort files based on creation time ... [ VB.net -> Files & Folder ]

The following code will sort file list based on CreationTime

Option Explicit On
Option Strict On

Imports System.Collections
Imports System.IO

Module Module1

  Private Class CreateTimeComparer
    Implements IComparer

    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
      ' make it return this in descending order (newest first)
      Return -DateTime.Compare(DirectCast(x, FileInfo).CreationTime, DirectCast(y, FileInfo).CreationTime)
    End Function
  End Class

  Sub Main()
    Dim al As New ArrayList
    Dim files() As String = Directory.GetFiles("c:\windows\system32")
    Dim comparer As New CreateTimeComparer

    ' create a list of file info objects
    For Each file As String In files
      al.Add(New FileInfo(file))
    Next

    ' sort the array list using the custom comparer
    al.Sort(comparer)

    ' print them out
    For Each fi As FileInfo In al
      Console.WriteLine(fi.CreationTime)
      Console.ReadLine()
    Next
  End Sub

End Module