Public Type FindStruct
    FileName    As String *104
    irName     As String *200
    FileSize    As Long
    WriteTime   As SYSTEMTIME
End Type

Function Sort_Array (Struct_Arr() As FindStruct, columnIndex As Long) As Long
    Dim temp As FindStruct 'вспомогательная переменная для обмена

    'тут любой алгоритм сортировки
    'какой нравится или подходит
    'в нем обязательно есть сравнение 2-х элементов
    'и производится перестановка элементов, или нет
    'в зависимости от результата сравнения
    If columnIndex = 1 Then  'сортируем по имени файла
        '..........
        'дошли до места сравнения
        If Struct_Arr(m).FileName < Struct_Arr(n).FileName Then 'если надо поменять элементы массива
            temp = Struct_Arr(m)              'меняем не просто имя. а весь элемент целиком
            Struct_Arr(m) = Struct_Arr(n)     'используя временную переменную
            Struct_Arr(n) = temp              'теперь два элемента поменялись целиком
                                              'все данные каждого из файлов остались при них
                                              'и не перепутались.
        End If

    ElseIf columnIndex = 2 Then  'сортируем по папке файла также, только сравнивать будем .DirName
        '..........
        'дошли до места сравнения
        If Struct_Arr(m).DirName < Struct_Arr(n).DirName Then 'если надо поменять элементы массива
            temp = Struct_Arr(m)              'меняем не просто папку, а весь элемент целиком
            Struct_Arr(m) = Struct_Arr(n)     'используя временную переменную
            Struct_Arr(n) = temp              'теперь два элемента поменялись целиком
                                              'все данные каждого из файлов остались при них
                                              'и не перепутались.
        End If

    ElseIf columnIndex = 3 Then  'сортируем по размерам файлов
        'все повторяется, только для поля .FileSize

    'и т.д. продолжается код, для каждого из полей по которому сортируется массив


End Function

//============= struct =====================================
typedef struct FIND_DATA{
        SYSTEMTIME   writeTime;
        int          iIcon;
        WORD        dwSize;
        char         fName[104];
        char         attr[5];
        char         dirName[200];
}FIND_DATA, *pFIND_DATA;

//============= types =====================================
typedef FIND_DATA*      item;           /* Тип сортируемых элементов */
typedef int             tblIndex;       /* Тип ключей, по которым сортируем */
typedef FIND_DATA*      T;

//===============================================================
int CmpIndex(item ptr1, item ptr2){
        FILETIME           ft1;
        FILETIME           ft2;
        int                result;

        if (ColumnIndex==0){
                result = (_stricoll((ptr1->fName),ptr2->fName));
                }
        else if (ColumnIndex==1){
                result = (_stricoll((ptr1->dirName),ptr2->dirName));
                }
        else if (ColumnIndex==2){
                result = (ptr1->dwSize - ptr2->dwSize);
                }
        else if (ColumnIndex==3){
                result = (strcmp(ptr1->attr, ptr2->attr));
                }
        else if (ColumnIndex==4){
                SystemTimeToFileTime(&ptr1->writeTime, &ft1);
                SystemTimeToFileTime(&ptr2->writeTime, &ft2);
                result = (CompareFileTime(&ft1,&ft2));
                }
        return SortDirection*result;
}


//===============================================================
tblIndex partition(T* a, tblIndex lb, tblIndex ub) {
        item            t, pivot;
        tblIndex        i, j, p;

        /**********************************
        *  разделение массива a[lb..ub]  *
        **********************************/
 
        /* Выбираем центр - pivot */
        p = lb + ((ub - lb)>>2);
        pivot = a[p];
        a[p] = a[lb];

        /* сортируем lb+1..ub относительно центра */
        i = lb+1;
        j = ub;
        while (1) {
                while (i < j && CmpIndex(pivot,a[i]>0){
                        i++;
                        }
                while (j >= i && CmpIndex(a[j],pivot)>0){
                        j--;
                        }
//while (i < j && pivot>a[i] i++;
//while (j >= i && a[j]>pivot) j--;
                if (i >= j) break;
                t = (FIND_DATA*)a[i];
                a[i] = a[j];
                a[j] = t;
                j--; i++;
                }

        /* центр в a[j] */
        a[lb] = a[j];
        a[j] = pivot;

        return j;
}

//===============================================================
void __stdcall quickSort(T *a, tblIndex lb, tblIndex ub) {
        tblIndex        m;
        /**************************
        *  сортируем  a[lb..ub]  *
        **************************/

        while (lb < ub) {

                /* разделение пополам */
                m = partition (a, lb, ub);

                if (m - lb <= ub - m) {
                        quickSort(a, lb, m - 1);
                        lb = m + 1;
                        }
                else {
                        quickSort(a, m + 1, ub);
                        ub = m - 1;
                        }
                }
}