- Код: Выделить всё
Private Sub SaveXml()
Dim fileName As String = "Drive.xml"
Dim Xml As New XDocument()
Dim Tree As New XElement("Volume")
Tree.Add(New XAttribute("Name", "MSDN"))
Xml.Add(Tree)
If TreeView1.Nodes.Count > 0 Then
SaveXmlNode(TreeView1.Nodes, Xml)
End If
Xml.Save(fileName)
End Sub
Public Sub SaveXmlNode(ByVal cNodes As TreeNodeCollection, ByVal Xml As XDocument)
Dim curNode As TreeNode
For Each curNode In cNodes
Dim Tree As New XElement("Folder")
Tree.Add(New XAttribute("Name", curNode.Text))
Xml.Root.Add(Tree) 'Знаю что должно быть не Root, но не знаю, что подставить в место него
If curNode.Nodes.Count > 0 Then
SaveXmlNode(curNode.Nodes, Xml)
End If
Next
End Sub
Должно получится так:
- Код: Выделить всё
<?xml version="1.0" encoding="utf-8"?>
<Drive Volume="MSDN">
<Folder Name="Include" />
<Folder Name="MSDNExpress">
<Folder Name="Program Files">
<Folder Name="MSDN">
<Folder Name="MSDN9.0">
<Folder Name="CSetupMN" />
</Folder>
</Folder>
</Folder>
<Folder Name="Setup">
<Folder Name="VSSetupWatson">
<Folder Name="1033" />
</Folder>
<Folder Name="Images" />
</Folder>
<Folder Name="WCU">
<Folder Name="DExplore" />
<Folder Name="dotNetFramework">
<Folder Name="dotNetFX20" />
<Folder Name="dotNetFX30">
<Folder Name="x64" />
<Folder Name="x86" />
</Folder>
<Folder Name="dotNetFX35">
<Folder Name="ia64" />
<Folder Name="x64" />
<Folder Name="x86" />
</Folder>
<Folder Name="dotNetMSP">
<Folder Name="x64" />
<Folder Name="x86" />
</Folder>
</Folder>
</Folder>
</Folder>
</Drive>
а получается так:
- Код: Выделить всё
<?xml version="1.0" encoding="utf-8"?>
<Drive Volume="MSDN">
<Folder Name="Include" />
<Folder Name="MSDNExpress" />
<Folder Name="Program Files" />
<Folder Name="MSDN" />
<Folder Name="MSDN9.0" />
<Folder Name="CSetupMN" />
<Folder Name="Setup">
<Folder Name="VSSetupWatson" />
<Folder Name="1033" />
<Folder Name="Images" />
<Folder Name="WCU" />
<Folder Name="DExplore" />
<Folder Name="dotNetFramework" />
<Folder Name="dotNetFX20" />
<Folder Name="dotNetFX30" />
<Folder Name="x64" />
<Folder Name="x86" />
<Folder Name="dotNetFX35" />
<Folder Name="ia64" />
<Folder Name="x64" />
<Folder Name="x86" />
<Folder Name="dotNetMSP" />
<Folder Name="x64" />
<Folder Name="x86" />
</Drive>
т.е. не получается сделать вложенные папки
ЗЫ. Просьба сильно не пинать в VB Net делаю первый проект, с XML раньше дел тоже не имел
