Eu criei um programa que gera uma XML
igual está:
<Pastas3>
<Grupos pasta="C:\...\Arquivos\Videos">
<Video>C:\...\Arquivo 1</Video>
<Video>C:\...\Arquivo 2</Video>
<Video>C:\...\Arquivo 3</Video>
<Video>C:\...\Arquivo 4</Video>
<Grupos pasta="C:\...\Arquivos\Videos\Videos">
<Video>C:\...\Arquivo 1</Video>
<Video>C:\...\Arquivo 2</Video>
<Video>C:\...\Arquivo 3</Video>
<Video>C:\...\Arquivo 4</Video>
<Grupos pasta="C:\...\Arquivos\Videos\Videos\Video1">
<Video>C:\...\Arquivo 1</Video>
<Video>C:\...\Arquivo 2</Video>
<Video>C:\...\Arquivo 3</Video>
<Video>C:\...\Arquivo 4</Video>
</Grupos>
<Grupos pasta="C:\...\Arquivos\Videos\Video\Video 2">
<Video>C:\...\Arquivo 1</Video>
<Video>C:\...\Arquivo 2</Video>
<Video>C:\...\Arquivo 3</Video>
<Video>C:\...\Arquivo 4</Video>
<Grupos pasta="C:\...\Arquivos\Videos\Video\Video 2\Algo">
<Video>C:\...\Arquivo 1</Video>
<Video>C:\...\Arquivo 2</Video>
<Video>C:\...\Arquivo 3</Video>
<Video>C:\...\Arquivo 4</Video>
</Grupos>
</Grupos>
</Grupos>
<Grupos pasta="C:\...\Arquivos\Videos">
<Video>C:\...\Arquivo 1</Video>
<Video>C:\...\Arquivo 2</Video>
<Video>C:\...\Arquivo 3</Video>
<Video>C:\...\Arquivo 4</Video>
</Grupos>
</Grupos>
</Pastas3>
O problema é que eu preciso pegar os valores <Grupos pasta=
e <Video> ... </Video>
a partir de um determinado grupo e ler todos os <Grupos pasta=
e <Video> ... </Video>
subsequentes. Eu já to um tempo procurando na Internet alguma forma de fazer isso e as que achei leem todo o conteúdo. Eu achei algumas outras formas também, mas que não consegui implementar. O melhor código que eu consegui fazer foi esse, mas ele só lê o primeiro grupo passado:
Private Sub ColocarList()
Dim xd As XmlDocument = New XmlDocument
xd.Load("C:\Users\lourd\source\repos\Teste_Na a\Teste_Na a\xml.xml")
Dim n As XmlNode = xd.DocumentElement()
DaCerto(n)
End Sub
Private Sub DaCerto(z As XmlNode)
Dim gp As New ListViewGroup
For Each node As XmlNode In z
If node.Attributes.GetNamedItem("pasta").InnerText <> Nothing Then
gp = New ListViewGroup(node.Attributes.GetNamedItem("pasta").InnerText) With {
.Name = node.Attributes.GetNamedItem("pasta").InnerText
}
ListView1.Groups.Add(gp)
For i = 0 To node.ChildNodes.Count - 1
If node.ChildNodes(i).Name = "Video" Then
ColocarPastasDestroDoListView(node.ChildNodes(i).InnerText, gp)
ElseIf node.ChildNodes(i).Name = "Grupo" Then
DaCerto(node.ChildNodes(i))
End If
Next
End If
Next
End Sub
Então alguém pode me ajudar com como eu faço isso?
Edit:
Quando eu seleciono a a pasta Filmes
ele cria grupos com o nome das pastas e o conteúdo delas vai para dentro do grupo no ListView
.
Agora quando eu seleciono a pasta teste
ele seleciona o que tem dentro dela.
O que eu gostaria e de criar apenas 1 xml por "nó raiz" do TreeView
. Por exemplo tem 2 "nó raiz" chamados Filmes no Tree.
Grupos
dentro deGrupos
? Não deveria ter umSubGrupo
dentro de umGrupo
?Atributo
dos grupos e o valor emVideo
. Então vou precisar criar um nome para cada grupo?