sort filenames in FoundFiles

[bougler]

Hi,

I am new at VBA and I have this problem. I want to load a bunch of files by filename (e_us1.dat to e_us11.dat). I am using the code below but the filenames come in the wrong order: e_us1, e_us10, e_us11, e_us2, e_us3...e_us9. Any ideas on how to sort them ? Thanks.

With Application.FileSearch
.LookIn = "C:\"
.Filename = "e_us*"
If .Execute(SortBy:=msoSortByFileName,
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There are " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
Exit Sub
End If
End With

Benedicte

[Juan Pablo González]

Well, that's actually the 'correct' order, because when comparing strings, 10 comes before 2, or 20 or 200.

[bougler]

Yes, I know it is the correct order but I would like to change it. So I guess I need to write my own sort routine, hence my asking for help...

Benedicte

[erik.van.geit]

If you can't change the names of your files (e_us1 could be e_us01), perhaps something like this ?

car = ... 'count the exact number of caracters the first file has
For i = 1 To .FoundFiles.Count 
If LEN(.FoundFiles(i)) = car Then MsgBox .FoundFiles(i) 
Next i 
For i = 1 To .FoundFiles.Count 
If LEN(.FoundFiles(i)) = car  + 1 Then MsgBox .FoundFiles(i) 
Next i

does this match your suits ?

regards,
Erik