Original | TestDome

Imports System
Imports System.Collections.Generic
Imports System.Linq

Module Module1
    Public Class Folders
        Public Shared Function FolderNames(xml As String, startingLetter As Char) As IEnumerable(Of String)
            Throw New NotImplementedException("Waiting to be implemented.")  
        End Function
    End Class
    
    Public Sub Main()
        Dim xml As String = "<?xml version=""1.0"" encoding=""UTF-8""?>" +
            "<folder name=""c"">" +
                "<folder name=""program files"">" +
                    "<folder name=""uninstall information"" />" +
                "</folder>" +
                "<folder name=""users"" />" +
            "</folder>"
        
        For Each name As String In Folders.FolderNames(xml, "u")
            Console.WriteLine(name)
        Next
    End Sub
End Module