View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
phil phil is offline
external usenet poster
 
Posts: 201
Default Find all the files in a folder

I had been using the FileSearch function to locate all the files of a
particular type in a folder. Office2007 appears to have replaced that
function with a FileSystemObject class, but i can't get that to work. Here
is what I had been using. Any help would be appreciated.

Set fs = Application.FileSearch
With fs
.LookIn = Range("C7").Value
.SearchSubFolders = True
.FileName = "*.csv"
If .Execute() 0 Then
Row = 1
For i = 1 To .FoundFiles.Count