【求助】关于排序问题

这个没有办法，是windows内部默认排序的事情就是这样的……Orz
我以前的解决方案是将文件名的当中的数字相加按得到数值进行大小排序

Public Function ReturnSize(byval Text)
Text = Right(Text,Len(Text) - InStrRev(Text,"\"))
Text = left(Text,InStrRev(Text,".")-1)
Dim I,Temp
For I = 1 To Len(Text)
select case Mid(Text,I,1)
Case "1"
Temp = Temp & "1"
Case "2"
Temp = Temp & "2"
Case "3"
Temp = Temp & "3"
Case "4"
Temp = Temp & "4"
Case "5"
Temp = Temp & "5"
Case "6"
Temp = Temp & "6"
Case "7"
Temp = Temp & "7"
Case "8"
Temp = Temp & "8"
Case "9"
Temp = Temp & "9"
Case "0"
Temp = Temp & "0"
End Select
Next
ReturnSize = Int(Temp)
End Function
Public Sub BubbleSort(byRef mArray)
Dim I,J,Temp
For J = 1 To UBound(mArray)-1
For I = 1 To UBound(mArray)-1
If ReturnSize(mArray(I))>ReturnSize(mArray(I+1)) Then
Temp = mArray(I)
mArray(I) = mArray(I+1)
mArray(I+1) = Temp
End If
Next
Next
End Sub
这就是我用的办法……Orz

完整代码