Slow File Search

  • Thread starter Thread starter stratuser
  • Start date Start date
S

stratuser

The code below slows down for several seconds because of
the "LastModified" line, and I can't figure out why, since
there are only a few dozen files involved here. If I take
out that one line, the code executes instantly. Any ideas?


Directory = Range("Inputsubdirectory").Value

On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Directory
.Filename = "*.xls*"
.LastModified = msoLastModifiedLastMonth
.SearchSubFolders = False
.Execute

End With
 
You have given Excel more work to do.
Are the files on a server ? Things usually happen slower if so.
I wonder if checking the date of each file before opening would b
faster. (VB FileDateTime function)
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Userform List Boxes Load Very Slowly 2
VBA code working in excel2003 but not in excel2007 2
Seach Find txt file or close workbook in workbook_open() 1
Application.FileSearch Problems 6
Compile error - Expected: list seperator or ) 4
Modify Find Code 1
Open and Save Files in Directory 1
Open most recent file 10

Back
Top