Oh, right. The code
Sorry about that
My first post AND
my first screw-up (well at least I got that
out of the way) :D
Here is the code :
Set fs = Application.FileSearch
.LookIn = "C:\My Documents"
.FileName = "*.doc"
If .Execute(SortBy:=msoSortbyFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox "There were no files found."