Public Class Form1

    Private Sub Form1_Load() Handles MyBase.Load

        'サンプルデータ 

        ListView1.Items.Add("C:\01.WAV").SubItems.Add("お気に入りミュージック01")

        ListView1.Items.Add("C:\02.WAV").SubItems.Add("お気に入りミュージック02")

        ListView2.Items.Add("C:\01.MP3").SubItems.Add("お気に入りミュージック03")

        ListView2.Items.Add("C:\02.MP3").SubItems.Add("お気に入りミュージック04")

    End Sub



    Private Sub Button1_Click() Handles Button1.Click

        'ListView の内容を XML ファイルに保存 

        Dim data = <album>

                       <WAV>

                           <%= From x As ListViewItem In ListView1.Items _

                               Select <MUSIC file=<%= x.Text %> title=<%= x.SubItems(1).Text %>/> _

                           %>

                       </WAV>

                       <MP3>

                           <%= From x As ListViewItem In ListView2.Items _

                               Select <MUSIC file=<%= x.Text %> title=<%= x.SubItems(1).Text %>/> _

                           %>

                       </MP3>

                   </album>



        data.Save("C:\MUSIC.XML")

        MsgBox("保存しました", vbInformation)

    End Sub



    Private Sub Button2_Click() Handles Button2.Click

        ListView1.Items.Clear()

        ListView2.Items.Clear()



        'XML ファイルの内容を ListView に表示 

        Dim data = XDocument.Load("C:\MUSIC.XML")



        For Each music In data.Root.<WAV>.<MUSIC>

            ListView1.Items.Add(music.@file).SubItems.Add(music.@title)

        Next

        For Each music In data.Root.<MP3>.<MUSIC>

            ListView2.Items.Add(music.@file).SubItems.Add(music.@title)

        Next

        MsgBox("読み込みました。", vbInformation)

    End Sub

End Class