Create a Internet Shorcut on Anyone's Computer
This code will create an internet shortcut on someone's computer. All you have to do it call it with a path and hyperlink!
Original Author: unknown
Inputs
Path- path should be complete with filename ending in url (e.g. "C:Shortcut.url")
Hyperlink- this is the complete website address
Assumptions
So easy I think you can handle it.
Code
Private Sub CreateHyperlink(Path As String, Hyperlink as String)
Open Path For Output As #1 'open file access
Print #1, "[Internetshortcut]" 'print on first line
Print #1, "URL=" & Hyperlink 'print url on second line
Close #1 'close it
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.