Public Sub CreateShortcut(ByVal Title As String, ByVal URL As String)
' Creates a shortcut in the users Favorites folder
Dim strFavoriteFolder As String
' Retrieve the favorite folder
strFavoriteFolder = System.Environment.GetFolderPath( _
Environment.SpecialFolder.Favorites)
' Create shortcut file, based on Title
Dim objWriter As System.IO.StreamWriter = _
System.IO.File.CreateText(strFavoriteFolder & _
"\" & Title & ".url")
' Write URL to file
objWriter.WriteLine("[InternetShortcut]")
objWriter.WriteLine("URL=" & URL)
' Close file
objWriter.Close()
End Sub
' Creates a shortcut in the users Favorites folder
Dim strFavoriteFolder As String
' Retrieve the favorite folder
strFavoriteFolder = System.Environment.GetFolderPath( _
Environment.SpecialFolder.Favorites)
' Create shortcut file, based on Title
Dim objWriter As System.IO.StreamWriter = _
System.IO.File.CreateText(strFavoriteFolder & _
"\" & Title & ".url")
' Write URL to file
objWriter.WriteLine("[InternetShortcut]")
objWriter.WriteLine("URL=" & URL)
' Close file
objWriter.Close()
End Sub
تعليقات
إرسال تعليق