Hi, I'm having a problem, not sure if it's VBA related or if there'
something wrong with my system. I have the following code:


Code
-------------------

Sub test()
Set fs = Application.FileSearch
With fs
.NewSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = "\\directory\"
.Filename = "3000333*"
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
End Sub

-------------------


It looks into a specific directory, and tells me how many file
beginning with 3000333 there are in that folder. I have over a thousan
files in the folder, 13 of which begins with 3000333. However, accordin
to this code, it only finds 10. However, if i just use .Filename = "*.*
, that is, search for all the files in the directory, then I get all th
files, including the three that did not appear.

Here are the 13 files that should appear:
30003330x051206.XLS
30003332x051606.XLS
30003333x071206.XLS
30003334x071206.XLS
30003335x021706.XLS
30003335x040706.XLS
30003337x041006.XLS
30003337x061506.XLS
30003338x042506.XLS
30003339x012506.XLS
30003339x021606.XLS
30003339x022306.XLS
30003339x031606.XLS

However, the code does not find 30003333x071206.XLS
30003334x071206.XLS, and 30003337x041006.XLS.
Any suggestions

--
farfu
-----------------------------------------------------------------------
farful's Profile: http://www.excelforum.com/member.php...fo&userid=3617
View this thread: http://www.excelforum.com/showthread.php?threadid=56263