问为什么我的通配符不能通过目录注册？

EN

Sub LoopSubfoldersAndFiles()

    Dim folder As Object
    Dim subfolders As Object
    Dim MyFile As String
    Dim wb As Workbook
    Dim currentfile As Object, currentfolder As Object

    With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
    End With


    Set subfolders = folder.subfolders
    MyFile = "*.xlsx"

    For Each subfolders In subfolders

    Set CurrentFile = subfolders.Files

    With New FileSystemObject ' reference Microsoft Scripting Runtime library

        Dim root As folder
        Set root = .GetFolder("C:\Users\pp87255\Desktop\JNav Rest\05.23.2019")

        Dim subFolder As folder
        For Each subFolder In root.subfolders

            Dim currentfolder As folder
            For Each currentfolder In subFolder.subfolders

                Dim currentfile As File
                For Each currentfile In currentfolder.Files
                    If currentfile.Name Like "*.xlsx" Then
                        Dim wb As Workbook
                        Set wb = Application.Workbooks.Open(currentfile.Path)
                        If wb.Sheets(1).Cells(2, 3).Value2 = "" Then
                            Columns(3).EntireColumn.Delete
                        End If
                    End If
                Next
            Next
        Next
    End With


    Next

    Set folder = Nothing
    Set subfolders = Nothing

With Application
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
End With

End Sub