VBA在多个文件夹中搜索特定子文件夹并移动其中的所有文件

你能帮助我吗？

我想要一个宏vba来搜索SPECIFIC例如，所有存在并移动其文件的文件夹和子文件夹之间的子文件夹 (Xfolder)。

P:\Desktop\Folder1\subfolder\SUBFOLDER1\Xfolder

我正在使用 VBA 脚本运行时对象

  Set  oSourceFolder = fso.GetFolder(source)

    If Dir(destinationFolder, 16) = "" Then MkDir (destinationFolder)
        For Each oFile In oFolder.Files
                If Dir(destinationFolder,16) = "" Then
                    fso.MoveFile oFile.Path, destinationFolder 
                End If

            Next oFile
                           fso.DeleteFolder oFolder.Path

     Next oFolder

这是一个解决方案：

Dim fsoFileSystem As New FileSystemObject
Dim foFolder As Folder, foSubFolder As Folder
Dim fFile As File
Dim strStartFolder As String, strMoveFolder As String, strTargetFolder As String

strStartFolder = "\\A\B\C"
strMoveFolder = "SearchFolder"
strTargetFolder = "\\B\D\E"

Set foFolder = fsoFileSystem.GetFolder(strStartFolder)
For Each foSubFolder In foFolder.SubFolders
    If foSubFolder.Name = strMoveFolder Then
        For Each fFile In foSubFolder.Files
            fsoFileSystem.MoveFile fFile, strTargetFolder & "\"
        Next
    End If
Next

strStartFolder 是筛选子文件夹的文件夹。 strMoveFolder 是要查找的文件夹的名称。 strTargetFolder 是所有 strMoveFolder 文件应移动到的文件夹。