Process files using FSO - in alphabetical order

[Formula11]

If FSO is used to process files, can you make it do so in alphabetical order.
If I run this code, normally it does in alphabetical order, but if I amend one of the files, then it changes order. It's as if both alphabvetical order and last saved or last modified is used.

Sub Add_files_to_menu(cb As CommandBar, blnBeginGroup As Boolean)
    Dim FSO As Object, SourceFolder As Object, FileItem As Object
    Dim m As CommandBarPopup
    Dim mi As CommandBarButton
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.GetFolder("C:\Files\")
    Set m = cb.Controls.Add(msoControlPopup, , , , True): With m: .BeginGroup = blnBeginGroup: .Caption = "List files": End With
        For Each FileItem In SourceFolder.Files
            Set mi = m.Controls.Add(msoControlButton, , , , True)
            With mi
                .Caption = FileItem
            End With
        Next FileItem
End Sub

 

[JEC]

You can sort if you load the items into an array first.
To sort immediately you can use the Wscript shell object.

 

[Formula11]

OK thanks but how do I do it in code.

 

[JEC]

This code puts all xls files of a folder in one array(sorted in alphabetical order, because of "o:n" in the code below)
For more info: dir

After this you can loop through all items in ar.

Sub jec()
ar = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""C:\Files\*.xls"" /b/o:n").stdout.readall, vbCrLf)
End Sub

If you want all items, including subolders, you should use this: /b/o:n/s

 

[Formula11]

Thanks again.
Do you think you can make it work with the original query.

So far I tried to simplify to just list and this sort of worked. Each file was listed but there was a blank entry too.
When I tried to list in menu it was all blank.

Sub Add_files_to_menu()
    Dim FSO As Object, SourceFolder As Object, FileItem As Object
    
    Dim ar As Variant
    Dim item As Variant
    ar = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""C:\Files\"" /b/o:n").StdOut.ReadAll, vbCrLf)
    
    For Each item In ar
    MsgBox item
    Next
    
'    Set FSO = CreateObject("Scripting.FileSystemObject")
'    Set SourceFolder = FSO.GetFolder("C:\Files\")
'        For Each FileItem In SourceFolder.Files
'            MsgBox FileItem
'        Next FileItem
End Sub

 

[JEC]

To me it's not very clear what you are trying to reach. I also think you posted just 1 piece of your code.

 

[Formula11]

I'm trying to list files in a menu, when clicked on, it will open them. I've left out this part to simplify. Normally FileSystemObject shows in alphabetical order but for some reason or other, the order changes, maybe when I edit.
FSO fundamentally does not order files.

 

[Marc L]

​

In order to directly get files by ascending order just use VBA Dir function rather than FSO …​

 

[JEC]

Post #4 does that as well