Excel Application.filesearch results sorting

I'm trying to import files with a macro. The files have names in this format:
***1.xxx
***2.xxx
-
***9.xxx
***10.xxx
The .foundfiles collection returns them sorted by filename as default, i.e.
***1.xxx
***10.xxx
etc. I want them sorted in the order that they were saved. I am trying:

with application.filesearch
.newsearch
if .execute(sortby:=msosortbylastmodified)>0 then
Loadfile
end if
end with

but this invariably returns files sorted by name. Am I missing something? I obviously am. Any pointers deeply appreciated. Ta.

You could try copying the names and creation dates into 2 columns on a worksheet, sorting the worksheet and then reading back the names in order.

Andy, thanks for the suggestion, but I managed to solve the problem last night - after 3 days banging my head against the screen. First you filesearch and sort by size. After you have done this you can run a new search and the msoSortByLastModified function works correctly.

This archive is from the original message board at www.MrExcel.com.
All contents © 1998-2004 MrExcel.com.
Visit our online store to buy searchable CD's with thousands of VBA and Excel answers.
Microsoft Excel is a registered trademark of the Microsoft Corporation.
MrExcel is a registered trademark of Tickling Keys, Inc.

Archive of Mr Excel Message Board

Application.filesearch results sorting

Re: Application.filesearch results sorting

Re: Application.filesearch results sorting