Login or Sign Up to become a member!
LessThanDot Sit Logo

LessThanDot

Community Wiki

Less Than Dot is a community of passionate IT professionals and enthusiasts dedicated to sharing technical knowledge, experience, and assistance. Inside you will find reference materials, interesting technical discussions, and expert tips and commentary. Once you register for an account you will have immediate access to the forums and all past articles and commentaries.

LTD Social Sitings

Lessthandot twitter Lessthandot Linkedin Lessthandot friendfeed Lessthandot facebook Lessthandot rss

Note: Watch for social icons on posts by your favorite authors to follow their postings on these and other social sites.

Navigation

Google Ads

Using Linq to Order directories by creation datetime

From Wiki

Jump to: navigation, search
  1. Dim _Directories() As String
  2.         Dim _Directory As String
  3.         Dim _DirectoryInfos As New List(Of DirectoryInfo)
  4.  
  5.         _Directories = Directory.GetDirectories("c:/")
  6.         For Each _Directory In _Directories
  7.             Dim directoryinfo As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(_Directory)
  8.             _DirectoryInfos.Add(directoryinfo)
  9.         Next
  10.  
  11.         '  Run LINQ Query
  12.         Dim _DirectoryInfosOrderedByCreationTime = From DirectoryInfos In _DirectoryInfos _
  13.             Order By DirectoryInfos.CreationTime Descending _
  14.             Select DirectoryInfos
  15.  
  16.         '  Display results of query
  17.         If _DirectoryInfosOrderedByCreationTime.Count > 0 Then
  18.             For Each DirectoryInfo In _DirectoryInfosOrderedByCreationTime
  19.                 TextBox1.AppendText("Directory:  " & DirectoryInfo.FullName & " Date: " & DirectoryInfo.CreationTime & ControlChars.CrLf)
  20.             Next
  21.         End If

And with a little help from a friend.

We got it down to this.

  1. Sub Main()
  2. ' Run LINQ query
  3. Dim directories = _
  4. From path In System.IO.Directory.GetDirectories("c:\") _
  5. Let directory = New System.IO.DirectoryInfo(path) _
  6. Order By directory.CreationTime Descending _
  7. Select directory
  8.  
  9. ' Display results of query
  10. If directories.Count > 0 Then
  11. For Each directory In directories
  12. Console.WriteLine("Directory: " & directory.FullName & " Date: " & directory.CreationTime & ControlChars.CrLf)
  13. Next
  14. End If
  15. End Sub

216 Rating: 2.0/5 (5 votes cast)