Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim xtw As New XmlTextWriter(TextBox2.Text, System.Text.Encoding.UTF8)
        xtw.Indentation = 2
        xtw.Formatting = Formatting.Indented
        xtw.WriteStartDocument(True)
        list(New DirectoryInfo(TextBox1.Text), xtw)
        xtw.WriteEndDocument()
        xtw.Close()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "C:\"
        TextBox2.Text = "C:\cdir.xml"
    End Sub
 
    Private Sub list(ByVal dir As DirectoryInfo, ByVal xtw As XmlTextWriter)
 
        xtw.WriteStartElement("", "dir", "")
        xtw.WriteAttributeString("name", "", dir.Name)
 
        ' Process subdirectories
        For Each dir1 As DirectoryInfo In dir.GetDirectories()
            list(dir1, xtw)
        Next
 
        ' List files in this directory
        For Each fi As FileInfo In dir.GetFiles()
            xtw.WriteStartElement("", "file", "")
            xtw.WriteAttributeString("name", "", fi.Name)
            xtw.WriteEndElement()
        Next
        xtw.WriteEndElement()
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist