CodeItBetter Programming Another VB Programming Blog

'Internet - How to Create Internet Shortcut on your Desktop

Option Explicit
 
Private Sub Form_Load()
    Dim URLFile As String, URLTarget As String
    Dim MyFileNum As Integer
    URLFile = "C:\Windows\Desktop\CodeItBetter.url"
    URLTarget = "http://www.codeitbetter.com"
    MyFileNum = FreeFile
    Open URLFile For Output As MyFileNum
    Print #MyFileNum, "[InternetShortcut]"
    Print #MyFileNum, "URL=" & URLTarget
    Close MyFileNum
End Sub