从递归文件搜索中省略文件夹

Question

我是运行一个递归文件搜索程序，我的电脑关机了。我知道程序停止在哪个目录，有没有办法为递归文件搜索指定起始文件夹？例如，假设这是我的结构

R:\
R:\Test\
R:\Test\Folder1\
R:\Test1\
R:\Test1\Folder1\
R:\Test2\
R:\Test2\Folder2\

如果我希望递归搜索从

开始

R:\Test1\Folder1\

程序会怎样？

Option Compare Database

Sub ScanTablesWriteDataToText()
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 = ".jpg"
objRegExp.IgnoreCase = True

Set colFiles = New Collection

RecursiveFileSearch "R:\", objRegExp, colFiles, objFSO

For Each f In colFiles
    'do something
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

Answer 1

我会更改您的递归子以包含另外两个参数 -- 一个用于您要查找的文件夹，一个用于指示是否已找到它的布尔值：

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

  Dim objFolder As Object
  Dim objFile As Object
  Dim objSubFolders As Object
  Set objFolder = objFSO.GetFolder(targetFolder)

  If startFolder = "" Or found Then
    For Each objFile In objFolder.files
      If objRegExp.test(objFile) Then
          matchedFiles.Add (objFile)
      End If
    Next
  End If

  Set objSubFolders = objFolder.Subfolders
  For Each objSubFolder In objSubFolders
    If objSubFolder = startFolder Then
      found = True
    End If

    RecursiveFileSearch objSubFolder, objRegExp, matchedFiles, objFSO, _
      startFolder, found
  Next

  Set objFolder = Nothing
  Set objFile = Nothing
  Set objSubFolders = Nothing

End Sub

当你调用它时，它将是：

RecursiveFileSearch "R:\", objRegExp, colFiles, objFSO, "R:\Test1\Folder1\", false

Answer 2

您可以通过运行一个（优雅的）PowerShell

来简化此操作

将递归 JPG 列表转储到 C:\temp\filename.csv

Sub Comesfast()
X2 = Shell("powershell.exe get-childitem ""C:\Test1\Folder1"" -recurse | where {$_.extension -eq "".jpg""} | Select-Object FullName| export-csv ""C:\temp\filename.csv"" ", 1)
End Sub

从递归文件搜索中省略文件夹

Omit Folders From Recursive File Search

recursion

ms-access

vba

ms-access-2013