Type FileInfo (name As String, lastModified As Long, size as long) 'size in bytes
Public Sub CreateFileInfo (name As String, lastModified As Long, size As Long) As FileInfo
Dim t1 As FileInfo
t1.Initialize
t1.name = name
t1.lastModified = lastModified
t1.size = size
Return t1
End Sub
Private Sub SortedList as List
Dim lst As List
lst.Initialize
For Each f As String In File.ListFiles(log_dir_pdf )
If f.ToLowerCase.EndsWith("pdf") Then
Dim fInfo As FileInfo = CreateFileInfo(f, File.LastModified(log_dir_pdf, f), File.Size(log_dir_pdf, f))
lst.Add(fInfo)
End If
Next
lst.SortType("name", True) 'or "lastModified", or "size"
Return lst
End Sub