VB & Excel Macro delete file and file folder

Public CntFiles As Long
Sub 遍历()
    Dim MyPath, MyFilename
   
    MyPath = "E:\学习"
    strPath = MyPath & "/"   '"设置要遍历的文件夹目录
    CntFiles = 0
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fd = fso.GetFolder(strPath)    '设置fd文件夹对象
    Call SearchFiles(fd)   '调用子程序查搜索文件
   
    MsgBox "共有" & CntFiles & "个文件被删除"
End Sub
Sub SearchFiles(ByVal fd)
    For Each fl In fd.Files   '通过循环逐个查找文件
        If fl.Name Like "*学*.xls" Or fl.Name Like "*样*.xls" Then
            CntFiles = CntFiles + 1
            fl.Delete
        End If
    Next fl
    If fd.SubFolders.Count = 0 Then Exit Sub    'SubFolders返回由指定文件夹中所有子文件夹（包括隐藏文件夹和系统文件夹）组成的 Folders 集合
    For Each sfd In fd.SubFolders    '在 Folders 集合进行循环查找
        Call SearchFiles(sfd)     '使用递归方法查找下一个文件夹)
    Next
End Sub