使用VBA在文件系统中搜索文件路径

我正在寻找一种方法来搜索特定文件夹中包含特定字符串的子文件夹。下面我列出了一个我从头开始输入的函数,看看它是否有效。好吧,它确实有用,但当我说要搜索网络驱动器上的6000个文件夹时,它的速度还不够快。

我确信有更好的方法来做这件事,但我似乎在谷歌上找不到任何东西。

2. 作为一种选择,是否有人可以优化我的代码?主要的瓶颈是 instr .

代码如下:

Function findPath(strId As String) As String
checkObj
Dim strBase As String
strBase = opt.photoBasePath

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")

Dim baseFolder As Object
Set baseFolder = fs.getfolder(strBase)

Dim folder As Object

For Each folder In baseFolder.subfolders
    If InStr(1, folder.name, strId) > 0 Then
        findPath = strBase & "\" & folder.name
        Exit Function
    End If
Next folder


End Function

P、 我相信有人会建议修改我的文件夹结构,这样我就可以用编程的方式预测路径,但由于种种原因,这在我的情况下是不可能的。