NVM Bob, I have figured it out...
With fs
.LookIn = "PATH"
.SearchSubFolders = True
.Filename = "DDH1*"
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
Workbooks.Open...
---Background----
I am trying to make a database updating tool.
What I have is one workbook that is the database, with a button to update the database. The button pops up a userform and asks if you want to update the entire database, or just add single files. I am able to do the single file...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.