Create an Internet shortcut
Create an Internet shortcut
Rate Create an Internet shortcut
(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
Create an Internet shortcut Comments
No comments yet — be the first to post one!
Post a Comment