• Home
 · 
• Internet/HTML
 · 
• Create an Internet shortcut

Create an Internet shortcut

Create an Internet shortcut

Rate Create an Internet shortcut

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Here is an example...    
CreateInternetShortCut "C:\windows\desktop\test.url", "http://www.vbcode.com"

Sub CreateInternetShortCut(URLFile As String, URLTarget As String)

'An Internet Shortcut takes on the form of
'   [InternetShortcut]
'   URL=http://www.YourWebSiteAddress.com   

    Dim intFreeFile As Integer

    'get free file number
    intFreeFile = FreeFile
    
    'print the URL file
    Open URLFile For Output As intFreeFile
    Print #intFreeFile, "[InternetShortcut]"
    Print #intFreeFile, "URL=" & URLTarget
    Close intFreeFile
    
End Sub