XMLについて

環境/言語:[VB.NET]
分類:[.NET]

Public Function XMLWrite(ByVal Score As Integer, ByVal Name As String, ByVal Machine As String, ByVal entry As Boolean)
Dim strXml As String = "<?xml version='1.0' encoding='UTF-8'?>"
Dim xmlDoc As New XmlDocument

strXml += "<data>"
strXml += "<name>" & Name & "</name>"
strXml += "<score>" & Score & "</score>"
strXml += "<machine>" & Machine & "</machine>"
strXml += "<entry>" & entry & "</entry>"
strXml += "</data>"

xmlDoc.LoadXml(strXml)

Try
xmlDoc.Save("reception.xml")
Catch ex As XmlException
MsgBox(ex.ToString)
End Try
End Function

と記述をしました。

1回ボタンを押し、実行するとXMLが保存されます。
2回目でボタンを押すとエラーがでます。

エラーの内容は
'System.IO.IOException' のハンドルされていない例外が mscorlib.dll で発生しました。

追加情報 : プロセスはファイル "C:\Documents and Settings\木山\My Documents\Visual Studio Projects\XMLTest\XMLTest\bin\sample.xml" にアクセスできません。このファイルは別のプロセスが使用中です。

と出てきました。
解決方法が分からないので教えていただけませんか？

> 解決方法が分からないので教えていただけませんか？

ｘｍｌはあまり詳しくないのですが、
ひょっとしたら、下記が参考になるかも。

http://vbdotnet.fc2web.com/vbnet/xml/Xml04.htm

「ストリームを閉じる」ところとか。

下記は参考まで。
Public Function XMLWrite(ByVal Score As Integer, ByVal Name As String, ByVal Machine As String, ByVal entry As Boolean)
Dim strXml As String = "<?xml version='1.0' encoding='UTF-8'?>"
Dim xmlDoc As New XmlDocument

strXml += "<data>"
strXml += "<name>" & Name & "</name>"
strXml += "<score>" & Score & "</score>"
strXml += "<machine>" & Machine & "</machine>"
strXml += "<entry>" & entry & "</entry>"
strXml += "</data>"

xmlDoc.LoadXml(strXml)

Try
Dim xmlWritek As XmlTextWriter = New XmlTextWriter("reception.xml", Nothing)
xmlWritek.Formatting = Formatting.Indented
xmlWritek.Indentation = 4 '保存する
xmlDoc.Save(xmlWritek)
'ストリームを閉じる
xmlWritek.Close()
'xmlDoc.Save("reception.xml")
MessageBox.Show("完了です。")

Catch ex As XmlException
MsgBox(ex.ToString)
End Try
End Function

こん さん回答有難うございます。

丁寧に教えて頂き、非常に参考になりました。有難うございました。
今後とも宜しくお願いします。