make a list of files in a directory

  • Thread starter Thread starter Guest
  • Start date Start date
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
 
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
 
Back
Top