Application.FileSearch Not Working

[rhjake23]

Hello.
I have a vb script that works in Excel 2003 and now I need the script to work in Office 365.
I can paste the entire code if needed, but for starters, I am looking for the vb replacement for Application.FileSearch.
The code basically sets variables and searches the network drive for a particular folder (month) and then opens up a file and imports select columns back into a template.
I get an error: Object doesn't support this action: Run Time Error 445...... this happens on the following code line. Set fs = Application.FileSearch
Any ideas?
Thanks.

 

[Fluff]

Unfortunately MS (in their wisdom) decided to remove that when they produced Xl 2007.

 

[rhjake23]

Thanks Fluff - so no way around this ?

 

[Fluff]

There is & was going to point you to a site called XL-Central, but it doesn't seem to be available at the moment.
Will you just be searching one folder, or do you need to search subfolders as well?

 

[rhjake23]

It would be searching a server path...then subfolders (which there would be 7 of them to be exact)
//server1/folder1
//server1/folder2
etc...
Thank you !!

 

[Fluff]

Do you know the folder name & full path, or do you need to search for the folder?

 

[rhjake23]

I will know the folder name (depending on a variable) which is working... and I will know the 7 subfolders as those never change.

 

[Fluff]

In that case you could use something like

Sub rhjake()
   Dim StartPth As String
   Dim aryFldr As Variant
   Dim i As Long
   Dim Wbk As Workbook
   
   StartPth = "C:\Mrexcel\"
   aryFldr = Array("Folder1\", "Folder2\", "Folder3\")
   For i = 0 To UBound(aryFldr)
      Set Wbk = Workbooks.Open(StartPth & aryFldr(i) & "Book1.xlsx")
      'do something
      Wbk.Close False
   Next i
End Sub

 

[rhjake23]

ok thank you ! I will try and implement that....if I can't get it... do you mind if I paste the entire code in here?

 

[Fluff]

No, that's fine