通过vba在子目录中查找文件

如何解决通过vba在子目录中查找文件

Sub CheckandSend()
    Dim strfile As String
    Dim ws As Worksheet 'make sure to define a sheet
    Set ws = ThisWorkbook.Worksheets("RFQ")
    Sheets("Part list").Select
    Sheets("RFQ").Select
    Dim lastrow As Long
    lastrow = ActiveSheet.Cells(Rows.Count,2).End(xlUp).Row
    Range("A6:E" & lastrow).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Part list").Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks _
        :=False,Transpose:=False
    Application.CutCopyMode = False
    Cells.Select
    Cells.EntireColumn.AutoFit
Dim Worksheet2_Name As String
WorkRFQ_Name = "Part list" ' Replace this with the name of the first sheet you want to export
Set WorkRFQ = ThisWorkbook.Worksheets(WorkRFQ_Name)
Dim Write_Directory As String
Dim WorkRFQ_Path As String
Write_Directory = "P:\CENTRAL\PROJECTS\TARSON\Newfolder1\" 
WorkRFQ_Path = Write_Directory & "\" & WorkRFQ_Name
WorkRFQ.ExportAsFixedFormat _
    Type:=xlTypePDF,_
    FileName:=WorkRFQ_Path,_
    Quality:=xlQualityStandard,_
    IncludeDocProperties:=True,_
    IgnorePrintAreas:=False,_
    OpenAfterPublish:=False
    
    Sheets("Part list").Select
    Columns("A:Z").Select
    Selection.Delete
    Sheets("RFQ").Select
    Dim SourcePath As String
    SourcePath = "I:\Mechanical\External\Emission\35Test Rig\1Vendor\"
    Dim DestPath As String
    DestPath = "P:\CENTRAL\PROJECTS\TARSON\Newfolder1\" 

    Dim irow As Long
    Dim f As SearchFolders
    Dim filetype As String
    filetype = "*.pdf"
    irow = 7
    
    Do While ws.Cells(irow,2) <> vbNullString
        Dim FileName As String
        FileName = Dir(SourcePath & ws.Cells(irow,2) & "*.pdf")
       
        Do While FileName <> vbNullString
            VBA.FileCopy SourcePath & FileName,DestPath & FileName
            FileName = Dir()
        Loop
        
        irow = irow + 1
    Loop
end sub

在这里，此代码帮助我找到一个存在于我的源路径中的 pdf 文件，然后将该文件插入到我的目标路径中，现在我滞后的位置，在我的源路径（pdf 到供应商）中，在此文件夹之后有多个子文件夹，我想要一个循环遍历所有子文件夹并找到我的文件并将其放在我的目标路径中的代码

我的子文件夹看起来像 OP10、OP20、OP30.....ETC...,