Mega Code Archive

 

Categories / VB.Net / Windows System

 

Adding Favorites

Public Class MainClass     Public Shared Sub Main()         CreateShortcut("Demo", "http://www.a.net/")     End Sub     Public Shared Sub CreateShortcut(ByVal Title As String, ByVal URL As String)         Dim strFavoriteFolder As String         strFavoriteFolder = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites)         Dim objWriter As System.IO.StreamWriter = System.IO.File.CreateText(strFavoriteFolder & "\" & Title & ".url")         objWriter.WriteLine("[InternetShortcut]")         objWriter.WriteLine("URL=" & URL)         objWriter.Close()     End Sub End Class