Retrieving Files sorted by Date order 2

[HouDog]

Hi all,

I am trying to write a program that when it starts up, it retrieves the contents of a folder in ascending datetime order. I looked at the Dir() function but it doesn't do what I need. I was just wondering if anyone knew of a way before I explore a sorting algorithm solution. Thx.

 

[johnCronin]

Not sure if there isn't a better way but this will work:

Public Class SortFiles
Implements IComparer

Public Function Compare(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)
Return f1.CreationTime.CompareTo(f2.CreationTime)
End Function
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim di As DirectoryInfo = New DirectoryInfo("c:\")
Dim files() As FileInfo = di.GetFiles
Array.Sort(files, New SortFiles)

 

[HouDog]

Thanks for the reply. I'll try it.

 

[HouDog]

Thanks John, that worked great. Thanks again for your response.

 

[SqueakinSweep]

Nice...and well worth a Star

Sweep
...if it works dont mess with it

 

[bigfoot]

This thread is well worth keeping.