Scrivere un elemento nella cartella dei preferiti di IE

Public Function AddFavorite(ByVal name As String, _

                            ByVal url As String, _

                            Optional ByVal subFolder As String = Nothing) As Boolean

  Dim folder = Environment.GetFolderPath(Environment.SpecialFolder.Favorites)

  Dim shortcut As New System.Text.StringBuilder

  With shortcut

    .AppendLine("[InternetShortcut]")

    .AppendFormat("URL={0}", url)

  End With

  Dim filename As String

  If String.IsNullOrWhiteSpace(subFolder) Then

    filename = String.Concat(name, ".url")

  Else

    filename = System.IO.Path.Combine(subFolder, String.Concat(name, ".url"))

  End If

  filename = System.IO.Path.Combine(folder, filename)

  Try

    System.IO.File.WriteAllText(filename, shortcut.ToString())

    Return System.IO.File.Exists(filename)

  Catch ex As Exception

    Return False

  End Try

End Function

public Boolean AddFavorite(String name, String url, string subFolder)

{

  String folder = Environment.GetFolderPath(Environment.SpecialFolder.Favorites);

  System.Text.StringBuilder shortcut = new System.Text.StringBuilder();

  shortcut.AppendLine("[InternetShortcut]");

  shortcut.AppendFormat("URL={0}", url);

  String filename = null;

  if (String.IsNullOrWhiteSpace(subFolder))

  {

    filename = String.Concat(name, ".url");

  } else {

    filename = System.IO.Path.Combine(subFolder, String.Concat(name, ".url"));

  }

  filename = System.IO.Path.Combine(folder, filename);

  try

  {

    System.IO.File.WriteAllText(filename, shortcut.ToString());

    return System.IO.File.Exists(filename);

  }

  catch (Exception)

  {

    return false;

  }

}