Atlanta Custom Software Development 

   Search        Code/Page

User Login



Forgot the Password?
» Web Development
» Maintenance
» Data Integration/BI
» Information Management
» Regular Expr Tester
» Free Tools

Create an Internet shortcut

Total Hit ( 2203)

Rate this article:     Poor     Excellent 

 Submit Your Question/Comment about this article



Unlike regular LNK shortcut, which contain data in binary file, Internet shortcut files are just text files in this format:


Thus it is simple to programmatically create an Internet shortcut that, when double-clicked, will load the default browser and have it point to the specified URL. Here is a reusable routine that does it all:

Click here to copy the following block
' Create an internet shortcut
' when double-clicked, this shortcut will
' load the default browser and point it to
' the specified URL page

Sub CreateInternetShortcut(ByVal FileName As String, ByVal URL As String)
  Dim fnum As Integer
  ' an Internet shortcut is just a two-line text file
  fnum = FreeFile
  Open FileName For Output As #fnum
  Print #fnum, "[InternetShortcut]"
  Print #fnum, "URL=" & URL
  Close #fnum

End Sub

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)

Job Description : He is the moderator of this site and currently working as an independent consultant. He works with, SQL Server and other MS technologies. He is, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )

Home   |  Comment   |  Contact Us   |  Privacy Policy   |  Terms & Conditions   |  BlogsZappySys

© 2008 BinaryWorld LLC. All rights reserved.