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

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

You need to add 1 to i, like so:

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


On Sat, 17 Dec 2005 22:13:07 -0000, wrote:

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




--
------------------
Darren

That did it! This is the fastest file listing code that I have used
(16,331 files in less than a minute). Thanks again for the replies.