将文件夹名称存储到数组中，并按字母顺序排序VBA

Sub SortFolderNames()
    Dim folderPath As String
    Dim folderArray() As String
    Dim i As Integer, j As Integer
    Dim temp As String
    
    ' 设置文件夹路径
    folderPath = "C:\YourFolderPath"
    
    ' 获取文件夹列表
    folderArray = GetFolderNames(folderPath)
    
    ' 使用冒泡排序按字母顺序排序
    For i = LBound(folderArray) To UBound(folderArray) - 1
        For j = i + 1 To UBound(folderArray)
            If UCase(folderArray(i)) > UCase(folderArray(j)) Then
                temp = folderArray(i)
                folderArray(i) = folderArray(j)
                folderArray(j) = temp
            End If
        Next j
    Next i
    
    ' 输出排序后的文件夹列表
    For i = LBound(folderArray) To UBound(folderArray)
        Debug.Print folderArray(i)
    Next i
End Sub

Function GetFolderNames(folderPath As String) As String()
    Dim folderObj As Object
    Dim subFolderObj As Object
    Dim folderArray() As String
    Dim i As Integer
    
    ' 创建文件夹对象
    Set folderObj = CreateObject("Scripting.FileSystemObject").GetFolder(folderPath)
    
    ' 获取子文件夹数量
    ReDim folderArray(1 To folderObj.SubFolders.Count)
    
    ' 将文件夹名称存储到数组中
    i = 1
    For Each subFolderObj In folderObj.SubFolders
        folderArray(i) = subFolderObj.Name
        i = i + 1
    Next subFolderObj
    
    ' 返回文件夹数组
    GetFolderNames = folderArray
End Function