In questi giorni abbiamo sviluppato un softwarino che premendo un pulsante si collegava alla pagina web della nostra società. Si è creata così l'esigenza di inserire da codice il link alla nostra Home Page nel menù dei Preferiti.
Così ho pensato che potesse servire anche ad altri e ho inserito di seguito la funzioncina che ho scritto sia in VB.Net che in C#.
VB.NET
Private Sub Add_Preferiti(ByVal Titolo As String, ByVal Url As String)
If (Titolo <> "") And (Url <> "") Then
Dim CartellaFavoriti As String
CartellaFavoriti = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
Dim Oggetto As System.IO.StreamWriter=System.IO.File.CreateText(CartellaFavoriti & "\" & _
Titolo & ".url")
Oggetto.WriteLine("[InternetShortcut]")
Oggetto.WriteLine("URL=" & Url)
Oggetto.Close()
Else
MessageBox.Show("Attenzione! Inserire tutti i campi.", "Avviso", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, _
MessageBoxOptions.DefaultDesktopOnly)
End If
End Sub
C#
private void Add_Preferiti(string Titolo, string Url)
{
if ((Titolo != "") && (Url != ""))
{
string Cartellapreferiti;
Cartellapreferiti = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites);
System.IO.StreamWriter Oggetto=System.IO.File.CreateText(Cartellapreferiti & "\\" & Titolo & _
".url");
Oggetto.WriteLine("[InternetShortcut]");
Oggetto.WriteLine("URL=" & Url);
Oggetto.Close();
}
else
{
MessageBox.Show("Attenzione! Inserire tutti i campi.", "Avviso", MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, _
MessageBoxOptions.DefaultDesktopOnly);
}
}
Ciao
Ivan