Sub Test()
    Dim Path As String
    Path = "C:\Users\Сергей\Downloads"
    Set C_is = CreateObject("scripting.dictionary")
    C_is.Item("1.xlsb") = "1.xlsb"
    C_is.Item("2.xlsb") = "2.xlsb"
    FilesKiller Path, C_is
End Sub

Sub FilesKiller(ByVal Path As String, C_is)
    On Error Resume Next
    Dim strFile As String
    Static FSO As Object
    If FSO Is Nothing Then
        Set FSO = CreateObject("scripting.filesystemobject")
    End If
    Set curfold = FSO.GetFolder(Path)
    If Not curfold Is Nothing Then
        For Each fil In curfold.Files
            If C_is.Exists(fil.Name) Then
                FSO.DeleteFile fil.Path, 1
            End If
        Next
        For Each fold In curfold.SubFolders
            FilesKiller fold.Path, C_is
        Next
    End If
    Err.Clear
    On Error GoTo 0
End Sub