macro to list file names

[kane2979]

Hi I have a Macro which will list file names in column A, but it does not include the sub folders. Can someone please help me to edit this macro to include sub folders as well. I also want to display the file path in the column C for ech document displayed in the column A

Sub ListFiles()
Dim objFSO As FileSystemObject
Dim objFol As Folder
Dim objFiles As Files
Dim objFile As File
Range("A2:A300").Clear
Set objFSO = New Scripting.FileSystemObject
Set objFol = objFSO.GetFolder("c:\test")
Set objFiles = objFol.Files
Range("A2").Select
For Each objFile In objFiles
    ActiveCell = objFile.Name
    ActiveCell.Offset(1, 0).Select
    DoEvents
Next
Columns("A:A").EntireColumn.AutoFit
Set objFSO = Nothing
Set objFol = Nothing
Set objFiles = Nothing
 End Sub

 

[Joe4]

There have been posts on this is the past that you should be able to search using the board's Search functionality. Here is one link to another site that has code that does that:
http://www.excelforum.com/excel-programming/645683-list-files-in-folder.html

 

[Weaver]

The trick is to get the files in a folder, then get a list of all the folders in that folder. Then you rerun your procedure for each of those folders. It looks like the code Joe4 pointed you to does that.

Here's another useful link

http://www.ozgrid.com/forum/showthread.php?t=44464

Also, you could use application.filesearch, as that has folder recursion built in, but since I understand it's not compatible with XL2007, you're better off not going down that route