Adding Favorites : Environment Setting « Windows System « VB.Net

1. VB.Net
2. Windows System
3. Environment Setting

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

   
    
    
  

Related examples in the same category

1.	Get System Exit Code
2.	Has Shutdown Started
3.	Get Machine Name
4.	Get System New Line Code
5.	Get OS Version
6.	Get Processor Count
7.	Get Sysstem Directory
8.	Get Tick Count
9.	Get .Net Runtime Environment Version Number
10.	Get Working Set
11.	Display System Stack Trace
12.	List your environment Setting
13.	Get Environment Variable by Name
14.	Use the Environment.GetFolderPath method to return and display the path associated with the folder parameter.