Sorting array of file names alphabetically

Hi, all!

I am troubleshooting a macro (for a co-worker) that looks at a folder full of presentations and then copies all of the slides from each of those files into the main presentation file (the one the macro is ran from). The issues is, for whatever reason, the macro has not been properly sorting the files this week.

For example, file name beginning with SB16A_00_XX comes before SB16_00_XX

I've tried incorporating some quicksort routines, but i still sorts files like the above. We're trying to make it sort files like it does in the windows explorer "Name" button.

Any tips are appreciated!

here's the macro code:

Please Login or Register  to view this content.

Nowhere at this point. It "sorts" the files via the EnumerateFiles routine in the vArray.

I did add the quicksort function to this macro and had it call out the names of the files, but they were in the same exact order as before.

Originally Posted by Norie

EnumeratFiles doesn't 'sort' the files, it only fills the array using Dir.

Dir doesn't return files in any particular order.

What code did you used for quicksort?

See below:

Private Sub QuickSort(strArray(), intBottom As Integer, intTop As Integer)
Dim strPivot As String, strTemp As String
Dim intBottomTemp As Integer, intTopTemp As Integer
intBottomTemp = intBottom
intTopTemp = intTop
strPivot = strArray((intBottom + intTop) \ 2)
While (intBottomTemp <= intTopTemp)
While (strArray(intBottomTemp) < strPivot And intBottomTemp < intTop)
intBottomTemp = intBottomTemp + 1
Wend
While (strPivot < strArray(intTopTemp) And intTopTemp > intBottom)
intTopTemp = intTopTemp - 1
Wend
If intBottomTemp < intTopTemp Then
strTemp = strArray(intBottomTemp)
strArray(intBottomTemp) = strArray(intTopTemp)
strArray(intTopTemp) = strTemp
End If
If intBottomTemp <= intTopTemp Then
intBottomTemp = intBottomTemp + 1
intTopTemp = intTopTemp - 1
End If
Wend
'the function calls itself until everything is in good order
If (intBottom < intTopTemp) Then QuickSort strArray, intBottom, intTopTemp
If (intBottomTemp < intTop) Then QuickSort strArray, intBottomTemp, intTop
End Sub




End Sub

Originally Posted by Norie

Based on the ASCII character set, SB16A_00_XX does come before SB16_00_XX.

Do you want to sort on the characters before the first _?

Sure It's above my "coding" levels at this point...

Oddly enough, it ran just fine this week w/o any code manipulation. The only difference that I could see was all the presentations were saved as ".ppt" this time.