make a list of files in a directory

Is there a way for excel to list the files in a directory including
subdirectories.

from Excel help

Set fs = Application.FileSearch
With fs
.LookIn = "C:\Documents and Settings\rdrummon\Desktop"
.SearchSubFolders = True
.Filename = "cmd*"
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

this example searches for all files starting with cmd, take out the line
..Filename = "cmd*"
to search for all files.

Hope this helps
Rowan


"GFN" wrote:

> Is there a way for excel to list the files in a directory including
> subdirectories.
>
>

Sub ListFiles02(FileDir)

'Using FileSearch to list the files in a directory

Dim i As Integer

i = 1

With Application.FileSearch

.NewSearch
.LookIn = FileDir
.FileName = "*.*"
.SearchFolders = False
.Execute

For i = 1 To .FoundFiles.Count

Range("A" & i).Value = .FoundFiles(i)
Range("B" & i).Value = FileLen(.FoundFiles(i))
Range("C" & i).Value = FileDateTime(.FoundFiles(i))

Next

End With

End Sub