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


--
Kaak
------------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...fo&userid=7513
View this thread: http://www.excelforum.com/showthread...hreadid=391205