I think this is kinda neat 

No more writting of compareto's or equals just use linq.


        Dim _Directories() As String
        Dim _Directory As String
        Dim _DirectoryInfos As New List(Of DirectoryInfo)

        _Directories = Directory.GetDirectories("c:/")
        For Each _Directory In _Directories
            Dim directoryinfo As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(_Directory)
            _DirectoryInfos.Add(directoryinfo)
        Next

        '  Run LINQ Query
        Dim _DirectoryInfosOrderedByCreationTime = From DirectoryInfos In _DirectoryInfos _
            Order By DirectoryInfos.CreationTime Descending _
            Select DirectoryInfos

        '  Display results of query
        If _DirectoryInfosOrderedByCreationTime.Count > 0 Then
            For Each DirectoryInfo In _DirectoryInfosOrderedByCreationTime
                TextBox1.AppendText("Directory:  " & DirectoryInfo.FullName & " Date: " & DirectoryInfo.CreationTime & ControlChars.CrLf)
            Next
        End If