File Searches
 

I want to be able to search for all excel and word files
on my computer and capture the file path, the file name,
date last modified and file size. Is this easy to do? Does
anyone have a piece of code that already does this? I know
it seems like I am after a free bit of code and for
someone to do the work for me, but I really do not know
where to start with this.

Many thanks for any support you can give.

File Searches
 

Try this one

See the help for FileType


Sub Test2()
Dim i As Long
With Application.FileSearch
.NewSearch
.LookIn = "c:\Data"
.SearchSubFolders = False
.MatchTextExactly = False
.FileType = msoFileTypeAllFiles
If .Execute(msoSortOrderDescending) 0 Then
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
For i = 1 To .FoundFiles.Count
Cells(i, 1).Value = .FoundFiles(i)
Cells(i, 2).Value = FileDateTime(.FoundFiles(i))
Cells(i, 3).Value = FileLen(.FoundFiles(i))
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Paul Gurdin" wrote in message ...
I want to be able to search for all excel and word files
on my computer and capture the file path, the file name,
date last modified and file size. Is this easy to do? Does
anyone have a piece of code that already does this? I know
it seems like I am after a free bit of code and for
someone to do the work for me, but I really do not know
where to start with this.

Many thanks for any support you can give.