急急急急！在VB6.0中怎样用MSXML的方法来判断一个XML文件是否符合XML Schema的格式？

[cyouhou]

怎样用MSXML的方法来判断一个XML文件是否符合XML Schema的格式？是VB6.0的！！！

[daisy8675]

mark

[zzyong00]

呀哈，姐妹俩？

[cyouhou]

怎么没人回答问题啊！5555555555

[haisenmai]

就看运行的时候报错不报错咯 哈哈

[wumengs]

Public Sub LoadDocument(sFile As String)

Dim xDoc As MSXML2.DOMDocument
Set xDoc = New MSXML2.DOMDocument
xDoc.validateOnParse = False '这行用TRUE也试试

If xDoc.Load(sFile) Then
' The document loaded successfully.
' Now do something intersting.
Else

Dim strErrText As String
Dim xPE As MSXML2.IXMLDOMParseError

' ?得parseError?象
Set xPE = xDoc.parseError

With xPE

strErrText = " XML Document 不能LOAD " & _
"原因是." & vbCrLf & _
"error: " & .errorCode & ": " & xPE.reason & vbCrLf & _
"Line #: " & .Line & vbCrLf & _
"Line Position: " & .linepos & vbCrLf & _
"Position In File: " & .filepos & vbCrLf & _
"Source Text: " & .srcText & vbCrLf & _
"Document URL: " & .url

End With

MsgBox strErrText, vbExclamation
Set xPE = Nothing

End If

End Sub