Проверка валидности XML файла.

null@example.com (admin) — Wed, 10 Aug 2016 07:06:38 +0000

Данный скрипт перестал работать....

Sub Click(Source As Button)
    Set oXml = CreateObject("Msxml2.DOMDocument")
    oXml.validateOnParse = True
    localFile$ = "c:\XML\OUT\123.xml"
    oXml.LoadXml(localFile$)
    If oXml.parseError.ErrorCode = 0 Then 
        Print( "XML файл валиден!")  
    Else  
        Msgbox ("Ошибка: " & oXml.parseError.reason & " в строке: " & oXml.parseError.line & " позиция: " & oXml.parseError.linepos)
    End If
            '----            
End Sub

Выдает: Ошибка: Ошибка в элементе верхнего уровня документа. в строке 1 позиция 1.

Форум компьютерной помощи — Проверка валидности XML файла.

Проверка валидности XML файла.