File Search

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

When I run my codes using Excel Version 10.0 under Windows XP it is fine but when I run the same code using Excel Version 8.0e under Windows 1998, it would output 'There were no files found" despite the fact files (*cf) are present. Can anyone tell me where I've gone wrong with codes

Set fs = Application.FileSearc
With f
.LookIn = "C:\My Documents
.FileName = "*cf
If .Execute(SortBy:=msoSortbyFileName,
SortOrder:=msoSortOrderAscending) > 0 The
MsgBox "There were " & .FoundFiles.Count &
" file(s) found.
For i = 1 To .FoundFiles.Coun
MsgBox .FoundFiles(i
Next
Els
MsgBox "There were no files found.
End I
End Wit
 
I think I remember that xl97 has a problem with * . Another way,perhaps?

--
Don Guillett
SalesAid Software
(e-mail address removed)
Francis Ang said:
When I run my codes using Excel Version 10.0 under Windows XP it is fine
Click to expand...
but when I run the same code using Excel Version 8.0e under Windows 1998, it
would output 'There were no files found" despite the fact files (*cf) are
present. Can anyone tell me where I've gone wrong with codes.
 
Back
Top