List Files in a Directory
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 |
List Files in a Directory
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 |
List Files in a Directory
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 |
List Files in a Directory
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. |
All times are GMT +1. The time now is 07:16 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com