1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Sub EditXmlFile(ByVal File As String, ByVal FieldName As String, ByVal NewValue As String)
Try
Dim m_xmldoc As XmlDocument
Dim m_nodelist As XmlNodeList
Dim m_node As XmlNode
Dim temp As String
Dim i as Integer
m_xmldoc = New XmlDocument()
m_xmldoc.Load(File)
m_nodelist = m_xmldoc.SelectNodes("SI")
For each m_node in m_nodelist
'Si l'attribut name de ma balise <SI> = "BackupFolder" alors modifier sa valeur
Next
Catch errorVariable As Exception
MsgBox(errorVariable.ToString())
End Try
End Sub |