Function LastOpenedDate(Extends F As FolderItem, DefaultOtherDates As Boolean = True) As Date
  #If TargetMacOS Then
    Dim xMDItem as New MDItemMBS(F)
    Dim xDate as Variant
    
    If xMDItem <> Nil Then
      xDate = xMDItem.GetAttribute(xMDItem.kMDItemLastUsedDate).DateValue
      If xDate IsA Date Then Return xDate
    Else
      If xDate <> Nil Then Break
    End If
  #EndIf
  
  If DefaultOtherDates Then
    If F.ModificationDate <> Nil Then Return F.ModificationDate
    If F.CreationDate <> Nil Then Return F.CreationDate
  End If
End Function