Sub Process_Globals
Type FileAndTime(Name As String, Time As Long)
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim files As List
files = ListFilesByDate(File.DirRootExternal)
For i = 0 To files.Size - 1
Dim fs As FileAndTime
fs = files.Get(i)
Log(fs.Name & ": " & DateTime.Date(fs.Time))
Next
End Sub
Sub ListFilesByDate(Folder As String) As List
Dim files As List
files = File.ListFiles(Folder)
Dim sortedFiles As List
sortedFiles.Initialize
For i = 0 To files.Size - 1
Dim fs As FileAndTime
fs.Name = files.Get(i)
fs.Time = File.LastModified(Folder, fs.Name)
sortedFiles.Add(fs)
Next
sortedFiles.SortType("Time", False)
Return sortedFiles
End Sub