Gambas ONE

Public Sub SortFileViewByDate()

  Dim p As Panel = FileView1.Children[0]
  Dim iv As IconView = p.Children[0]
  
  Dim aKeys As New String[]
  Dim aDates As New Date[]

 ' make an array of the keys and an array of the modified dates...
  For Each sKey As String In iv.Keys
    aDates.Add(Stat(FileView1.Dir &/ iv[sKey].Text).LastModified)
    aKeys.Add(sKey)
  Next

' sort the list by date, swapping keys along with dates
'  (this sort function might need some work but it looks like it works to me)

ReCheck:
  For c As Integer = 0 To aDates.Max - 1
    If DateDiff(aDates[c], aDates[c + 1], gb.Second) > 0 Then
      Swap aDates[c], aDates[c + 1]
      Swap aKeys[c], aKeys[c + 1]
      Goto ReCheck
    Endif
  Next

  ' make the IconView match the list order by going through the list in reverse moving each item key to the top of the iconview.
  For c As Integer = aKeys.Max DownTo 0
    iv.MoveTo(aKeys[c])
    iv.Item.MoveFirst()
  Next

End

' now it is in date order

If bReverse Then ' reverse the order to show oldest first if required
  aKeys.Reverse
  aDates.Reverse
Endif

  ' make the IconView match the list order

  For c As Integer = aKeys.Max DownTo 0
    iv.MoveTo(aKeys[c])
    iv.Item.MoveFirst()
  Next