VB.NETでXMLの読み込みを行うと例外エラーが出てしまい大変困って

質問

VB.NETでXMLの読み込みを行うと例外エラーが出てしまい大変困っています。どなたかお願いします。

Protected Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click
Dim FILENAME As String
FILENAME = "C:\\TEST\"
If i = 1 Then
FILENAME = FILENAME & "AAA\111.xml"
Call testmethod(FILENAME)
ElseIf i = 2 Then
FILENAME = FILENAME & "BBB\222.xml"
Call testmethod(FILENAME)
End If
End Sub

Private Sub testmethod(ByVal FILENAME)
If File.Exists(FILENAME) Then

Dim xlr As XmlTextReader
xlr = New XmlTextReader(FILENAME)
While xlr.Read()
Select Case xlr.LocalName
Case "Personal"
TextBox1.Text = xlr.ReadString
Case "LastUpdate"
Label1.Text = xlr.ReadString
End Select
End While
xlr.Close()
End If

End Sub

こんな感じでコードを書いているのですがWhile xlr.Read()のところで例外エラーが出てしまいます。
原因が全然つかめず困っています。
New XmlTextReader(FILENAME)のFILENAMEを変数でなく直接パスを書くとうまくいくのですが変数にするとなぜかハンドリングできなくなります。
どなたかご解説お願いします。

回答No.2

1050 円（@1050YEN） · ベストアンサー

型の問題です。
修正方法は二つあります。（推奨は方法1です）

修正方法1
Private Sub testmethod(ByVal FILENAME)
を
Private Sub testmethod(ByVal FILENAME As String)
へ

修正方法2
xlr = New XmlTextReader(FILENAME)
を
xlr = New XmlTextReader(FILENAME.ToString())
へ

それと
FILENAME = "C:\TEST\"
FILENAME = FILENAME & "111.xml"

がありますが、私なら

FILENAME = "C:\TEST"　←　最後の￥はあっても無くてもよい
FILENAME = IO.Path.Combine(FILENAME, "111.xml")

というようにします。

Combineを利用すると、パスの連結を行うのですが、必要に応じて「\」をつけてくれますよ～

お礼

ありがとうございます
すごく感謝感謝です！
調べたりしても全然わからなかったことが解決してうれしいです。
本当にありがとうございました

回答No.3

ToOrisugaru

XmlTextReaderは、使ったことないけど、
Private Sub testmethod(ByVal FILENAME)
の指定で、パラメータがオブジェクト型になってますけど
これだと、オーバーライトうまくいかないのでは？
http://msdn.microsoft.com/ja-jp/library/system.xml.xmltextreader.xmltextreader(VS.80).aspx
上記内容によると、パラメータ一つだけというのは以下のパターンでしかないのですが．．．

　XmlTextReader (Stream)
　XmlTextReader (String)
　XmlTextReader (TextReader)
　XmlTextReader (XmlNameTable)

お礼

ありがとうございます

回答No.1

1050 円（@1050YEN）

"C:\\TEST\"
↑なんか\が多くないですか？

"C:\\TEST\"
を
"C:\TEST\"
にしたらどうなりますか？

お礼

うっかりミスでした。
あとxlr = New XmlTextReader(New StreamReader(FILENAME))でした・・・
ただ、これでもエラー 1 縮小変換しないで呼び出される、アクセス可能な 'New' がないため、オーバーロードの解決に失敗しました:
'Public Sub New(path As String)': パラメータ 'path' と一致する引数は 'Object' から 'String' へ縮小変換します。
'Public Sub New(stream As System.IO.Stream)': パラメータ 'stream' と一致する引数は 'Object' から 'System.IO.Stream' へ縮小変換します。
ってなっっちゃいます・・・