Hi Alondon,

There have been munerous posts suggesting that Filesearch , at least in its
xl2002 implementation is very flakey an I am aware that many have dropped it
from use.

See for example:

http://tinyurl.com/6p6vl


and

http://tinyurl.com/6cen2



---
Regards,
Norman



"alondon" wrote in message
...
Folks,

The routine below loads all the file names in the "DataDirectory" into a
ComboBox where the first 4 letters of the file name are the same as the
"SerialNumber". It works perfectly on some XP SP2 machines, but leaves
out files reciently added to the "DataDirectory" on other XP SP2 machines?
Always works on mapped drives, but has problems on local drives. Restart
or running Explore and hitting F5 a few times seems to solve the problem.

It looks like XP will buffer directories, but will not always update them
properly. Is something wrong with my code or is the
Application.FileSearch method just flakey? Is there a way to get around
this problem?

I really need this code, or something that accomplishes the same thing, to
work Any Ideas?

Thanks,

Allan P. London, CPA
San Francisco, CA

__________________________________________________ ____________
Private Sub UserForm_Initialize()

'Load scenario file names into ComboBox1



Dim fs As FileSearch

Dim I As Integer



On Error GoTo ErrorCode

Set fs = Application.FileSearch



With fs

.RefreshScopes

.NewSearch

.LookIn = DataDirectory

.Filename = Mid(Range("theSerialNumber"), 1, 4) & "*.xls"

If .Execute(SortBy:=msoSortByFileName, _

SortOrder:=msoSortOrderAscending) 0 Then

'MsgBox .FoundFiles.Count & " file(s) found."

For I = 1 To .FoundFiles.count

ComboBox1.AddItem UCase(.FoundFiles(I))

Next I

Else

MsgBox "There were no files found for " & CompanyName & _

" on the " & DataDirectory & "Directory"

GoTo ErrorCode

End If

End With

Exit Sub



ErrorCode:

Retval = False

Unload RecallScenario

End Sub