XMLファイル読み込み時のエラー

解決

しげっち 2006-02-25 20:24:46 No: 130426

はじめまして。
過去ログで調べたのですがわからないので質問させてください。

VB6で開発を行っているのですが、XMLファイルの読み込みを行うときに
「ユーザー定義型は定義されていません」のメッセージがでてしまって読み込めない状態です。
記述してあるコードは以下になります。

Private Sub ボタン1_click()

    Dim xmlDoc As New Msxml.DOMDocument40
    xmlDoc.async = False
    xmlDoc.resolveExternals = False
    xmlDoc.Load ("C:\s01.xml")
    If (xmlDoc.parseError.errorCode <> 0) Then
       Dim myErr
       Set myErr = xmlDoc.parseError
       MsgBox ("You have error " & myErr.reason)
    Else
       MsgBox xmlDoc.xml
    End If

End Sub

使用しているパーサーはMSXML4です。
よろしくお願いします。

しげっち 2006-02-25 22:56:17 No: 130427

すみません。
なんとか自己解決できました。
失礼いたしました。