Excel 2007

[egodette]

Application.FileSearch does not work in Excel 2007.. does anyone have a way of doing this now? Here is my current code.

With Application.FileSearch
.NewSearch
.LookIn = "F:\import\"
.Filename = "moxyaxys.trn"
If .Execute > 0 Then 'File exists
Kill ("F:\import\moxyaxys.trn")
End If
End With

 

[PHV]

The workaround preconised by Microft is here:

http://www.microsoft.com/technet/scriptcenter/topics/desktop/wdsearch.mspx

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[egodette]

Thanks for the reply. Not sure how all that works. Just looking for a simple code replacement.

 

[PHV]

I forgot to mention the source:

http://support.microsoft.com/kb/920229/en-us

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[egodette]

Thanks for trying..

We don't run Windows Desktop Search. I can't believe that MS screwed this up this bad. Going from 8 lines of code to God knows how many now.

Thanks again.

 

[PHV]

Another workaround (!):

http://support.microsoft.com/kb/935402/en-us

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886