Сортировать список имен файлов в папке в VBA?

Question

Есть ли способ получить отсортированный список имен файлов папки в VBA? До сих пор я достиг

Dim fso As Object
Dim objFolder As Object
Dim objFileList As Object
Dim vFile As Variant
Dim sFolder As String

sFolder = "C:\Docs"

Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(sFolder)
Set objFileList = objFolder.Files

For Each vFile In objFileList
    ' do something '
Next vFile

но важно убедиться, что порядок обработки цикла for определяется именами файлов ...

Любая помощь приветствуется!

Answer 1

Загрузите процедуру сортировки VBA, такую ​​как эта: Рекурсивная быстрая сортировка

Заполните массив именами файлов и просто отсортируйте, как показано здесь .

Answer 2

Порядок произвольный.

Когда вы переходите по objFileList, добавляете файлы в массив, тогда сортирует массив .

Answer 3

Похоже, вы можете сделать это, используя ADODB.RecordSet. Это немного тяжелый режим, но здесь ' s - это справка, с которой стоит начать.