For Each fileName As String In IO.Directory.GetFiles(path, "*.url", IO.SearchOption.AllDirectories)

    Dim title As String = IO.Path.GetFileNameWithoutExtension(fileName)

    Dim link As New WebSiteLink With {.Title = title, .URL = fileName}

    results.Add(link)

Next