Sub ListFiles02()
'Using FileSearch to list the files in a directory
Dim i As Integer
i = 1
With Application.FileSearch
..NewSearch
..LookIn = "G:\06_Drawings\Drafting System\Standards\Blocks\Casework"
..Filename = "*.dwg"
.SearchSubFolders = True
'.SearchFolders = False
..Execute
For i = 1 To .FoundFiles.Count
Range("B" & i + 1).Value = .FoundFiles(i)
Range("C" & i + 1).Value = FileDateTime(.FoundFiles(i))
'Range("D" & i + 1).Value = FileLen(.FoundFiles(i))
Next


End With


End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

wrote in message
oups.com...
I have gotten this code from a previous post (Thank You "KAAK", this
runs very fast) and modified it to work for my specific purpose. The
only thing I can't seem to get it to do is start its file listing in
the second row ("B2"). Thanks in advance

Sub ListFiles02()
'Using FileSearch to list the files in a directory
Dim i As Integer
i = 1
With Application.FileSearch
.NewSearch
.LookIn = "G:\06_Drawings\Drafting System\Standards\Blocks\Casework"
.Filename = "*.dwg"
.SearchSubFolders = True
'.SearchFolders = False
.Execute
For i = 1 To .FoundFiles.Count
Range("B" & i).Value = .FoundFiles(i)
Range("C" & i).Value = FileDateTime(.FoundFiles(i))
'Range("D" & i).Value = FileLen(.FoundFiles(i))
Next


End With


End Sub