Переупорядочить массив строк ZA (обратный алфавит)

Question

У меня есть массив строк, которые мне нужно заказать из Z-A:

Dim FolderFiles() As String
FolderFiles = ("ABC","ZYX","MNO","EFG")

Мне нужно отсортировать его так, чтобы он выглядел как

Dim FolderFilesOrder() As String
'Sort here
FolderFilesOrdered = ("ZYX","MNO", "EFG","ABC")

Сравнение только первых 3 букв хорошо, если есть ограничения.

Answer 1

Вот один из способов сортировки массива.

Sub test()

Dim s1 As String, s2 As String
Dim i As Long, j As Long
Dim myArrray(3) As String

myArrray(0) = "ABC"
myArrray(1) = "ZYX"
myArrray(2) = "MNO"
myArrray(3) = "EFG"

'Sort array in descending
For i = LBound(myArrray) To UBound(myArrray)
    For j = i To UBound(myArrray)
        If UCase(myArrray(j)) > UCase(myArrray(i)) Then
            s1 = myArrray(i)
            s2 = myArrray(j)
            myArrray(i) = s2
            myArrray(j) = s1
        End If
    Next
Next

'results in ZYX, MNO, EFG, ABC

End Sub