Directory List - Ron de Bruin

[Dominique Feteau]

Ron

You gave me this macro to get a directory list of files in a folder. Only
thing is that the files dont show up in alphabetical order. I could add a
separate small macro at the end that would sort them in order, but I was
wondering if there is another way to do it.

Let me know
Dominique

Sub test2()
Dim i As Long
With Application.FileSearch
.NewSearch
.LookIn = "c:\Data"
.SearchSubFolders = False
.MatchTextExactly = False
.FileType = msoFileTypeAllFiles
If .Execute(msoSortOrderDescending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
For i = 1 To .FoundFiles.Count
Cells(i, 1).Value = .FoundFiles(i)
Cells(i, 2).Value = FileDateTime(.FoundFiles(i))
Cells(i, 3).Value = FileLen(.FoundFiles(i))
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub

 

[Chip Pearson]

Dominique,

Change
If .Execute(msoSortOrderDescending) > 0 Then
to
If .Execute(msoSortByFileName) > 0 Then


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com