Sub ViaDOM()
    Dim sFolder$, sXmlFile$, sXml$
    Dim cafe 'As IXMLDOMElement
    Dim food 'As IXMLDOMElement
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        If .Show Then sFolder = .SelectedItems(1) Else Exit Sub
    End With
    sXmlFile = Dir$(sFolder & "\*.xml")
    With CreateObject("MSXML2.DOMDocument.6.0")  'New MSXML2.DOMDocument60
        Do While sXmlFile <> ""
            .validateOnParse = False
            .Load sXmlFile
            sXml = .xml
            For Each cafe In .SelectNodes("//cafe")
                For Each food In cafe.ChildNodes
                    cafe.ParentNode.appendChild food
                Next
                cafe.ParentNode.RemoveChild cafe
            Next
            If sXml <> .xml Then
                .Save sXmlFile
            Else
                Debug.Print "в Файле"; sXmlFile; " элемент cafe не найден"
            End If
            sXmlFile = Dir$()
        Loop
    End With
End Sub