Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim al As New ArrayList
        getFiles(tv.Nodes, al)
        ' was immer...
    End Sub
 
    Private Sub getFiles(ByVal nodes As TreeNodeCollection, ByVal al As _
      ArrayList)
        For Each tn As TreeNode In nodes
            If tn.Checked Then
                al.Add(tn.FullPath)
            Else
                getFiles(tn.Nodes, al)
            End If
        Next
    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