具有多个目录的文件搜索要搜索

Question

我正在使用此语法递归扫描 1 个目录以查找所有 *.mdb | *.accdb 文件类型。我的问题是我需要扫描 1 个以上的目录。我需要扫描

C:\Test\
R:\
T:\

如何修改以扫描多个目录？

备注
我注释掉了下面的代码行，因为我不再需要它作为递归搜索，但又不想重新编写整个过程。

'Set objSubFolders = objFolder.Subfolders
'For Each objSubfolder In objSubFolders
'    RecursiveFileSearch objSubfolder, objRegExp, matchedFiles, objFSO
'Next

代码 ->

Option Compare Database
Sub RefreshLinkedTables()
'Dim Fileout As Object
'Dim fso As Object
Dim objFSO As Object
Dim accapp As Access.Application
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim colFiles As Collection
'Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim objRegExp As Object
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern = ".mdb$|.accdb$"
objRegExp.IgnoreCase = True

Set colFiles = New Collection

RecursiveFileSearch "C:\Test\", objRegExp, colFiles, objFSO

For Each f In colFiles
    Set accapp = New Access.Application
    accapp.OpenCurrentDatabase (f)
    On Error Resume Next
    accapp.Visible = False
    Set db = accapp.CurrentDb
    For Each tdf In db.TableDefs
      If Not (tdf.Name Like "MSys*") Then
        'Relink here
        tdf.RefreshLink
      End If
    Next
    Set tdf = Nothing
    Set db = Nothing
Next
Set objFSO = Nothing
Set objRegExp = Nothing

End Sub
Sub RecursiveFileSearch(ByVal targetFolder As String, ByRef objRegExp As Object, _
                ByRef matchedFiles As Collection, ByRef objFSO As Object)

Dim objFolder As Object
Dim objFile As Object
Dim objSubFolders As Object
Set objFolder = objFSO.GetFolder(targetFolder)
For Each objFile In objFolder.files
    If objRegExp.test(objFile) Then
        matchedFiles.Add (objFile)
    End If
Next
'Set objSubFolders = objFolder.Subfolders
'For Each objSubfolder In objSubFolders
'    RecursiveFileSearch objSubfolder, objRegExp, matchedFiles, objFSO
'Next
Set objFolder = Nothing
Set objFile = Nothing
'Set objSubFolders = Nothing

End Sub

编辑
根据@Tim Williams 的评论 - 我编辑了我的代码，如下所示，但在

行

Set objFolder = objFSO.GetFolder(targetFolder)

我得到一个错误

Object Variable or with block variable not set

全新代码

Option Compare Database
Sub RefreshLinkedTables()
Dim searchdirs() As Variant
Dim sdir As Variant
Dim objFSO As Object
Dim accapp As Access.Application
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim colFiles As Collection

Dim objRegExp As Object
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern = ".mdb$|.accdb$"
objRegExp.IgnoreCase = True

Set colFiles = New Collection

searchdirs = Array("C:\Test\", "R:\", "T:\")

For Each sdir In searchdirs
    RecursiveFileSearch sdir, objRegExp, colFiles, objFSO

    For Each f In colFiles
        Debug.Print f
    Next

Next

End Sub
Sub RecursiveFileSearch(ByVal targetFolder As String, ByRef objRegExp As Object, _
                ByRef matchedFiles As Collection, ByRef objFSO As Object)

Dim objFolder As Object
Dim objFile As Object
Dim objSubFolders As Object
Set objFolder = objFSO.GetFolder(targetFolder)
For Each objFile In objFolder.files
    If objRegExp.test(objFile) Then
        matchedFiles.Add (objFile)
    End If
Next
Set objFolder = Nothing
Set objFile = Nothing

End Sub

Answer 1

遍历一组文件夹路径

Dim v As Variant
For Each v In Array("C:\Test\", "R:\", "T:\")
    RecursiveFileSearch Cstr(v), objRegExp, colFiles, objFSO
Next

具有多个目录的文件搜索要搜索

File Search With Multiple Directories To Search

ms-access

vba

ms-access-2013