troubleshooting Question

How to replace office 2003 application.filesearch function

Avatar of MrAutomate
MrAutomateFlag for United States of America asked on
Microsoft OfficeMicrosoft Excel
4 Comments1 Solution471 ViewsLast Modified:
I was using the script below.  Microsoft aparantly no longer supports this function.  What function can replace the below in office 2007, remaining compatible with office 2003.  I have seen some pretty scary looking scripts that are huge, and hope someone has a faiilry simple replacement :)
I would like to have the same code for excel and access 2007, but if not, access is the more important of the 2.

Thanks in advance
' Counts files in the directory
With Application.FileSearch
       .LookIn = "\\xxxxx\Share\Daily\" & Range("Q3").Value
      .FileType = msoFileTypeExcelWorkbooks
     .Execute
   Dim found As String
  found = .FoundFiles.Count
   End With
        
  If found <> 9 Then
   
MsgBox ("WARNING!  There are only " & " " & found & " files present.  You need to review prior to the rollup!")
Call openDIR
Else
MsgBox ("There are" & " " & found & " files present.  You can proceed to script rollup!")
End If
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 4 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 4 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros