Adding List Item In Modified Order

**DMT Dave** · 07-06-2021, 01:09 AM

Hi Guy's I am trying add folder contents to a listbox but show last modified at the top of the list ?

It is coming up .AddItem = Is Not An Option ?

Dim fPath is set to string

Code:

   Dim FSO As FileSystemObject    Dim FO As Folder, FI As file, FIs As Files
    Dim FileList()
    Dim I As Long


Set FSO = New FileSystemObject
Set FO = FSO.GetFolder(fPath)
Set FIs = FO.Files


ReDim FileList(1 To FIs.Count, 1 To 2)
I = 0


For Each FI In FIs
    I = I + 1
    FileList(I, 1) = FI.Name
    FileList(I, 2) = FI.DateLastModified
Next FI
    Me.lstPODS.AddItem = FileList


End If

**DMT Dave** · 07-06-2021, 01:18 AM

My other method adds the files but not in order so i am unsure if using FSO is the best solution or if the following method can be adapted to re arrange file name in date last modified order ?

Code:

FileName = Dir(fPath & "\*.pdf", vbNormal)Do While Len(FileName) > 0
Me.lstPODS.AddItem FileName
FileName = Dir()
Loop

**Welshgasman** · 07-06-2021, 03:04 AM

I believe you need to add one at a time, so put the AddItem inside the loop.?
Also fpath is not defined?

You might need to sort the array?
http://etutorials.org/Microsoft+Prod...+Array+in+VBA/

or using a collection (which I have never used)

https://stackoverflow.com/questions/...y-sort-listbox