Description

Creates a shortcut that does not require any other files. (Make sure it's a ".url" extension)

Code

Sub CreateShortcut(ByVal Target As String, ByVal FileName As String, _
Optional ByVal IconFile As String = ":TARGET:", Optional ByVal IconIndex As Long = 0)
    Dim FB As Integer, FileData As String
    If IconFile = ":TARGET:" Then IconFile = Target
    FileData = "[InternetShortcut]" & vbCrLf & "URL=" & Target & vbCrLf & "IconIndex=" & _
 IconIndex & vbCrLf & "IconFile=" & IconFile
    FB = FreeFile
    Open FileName For Output As #FB
        Print #FB, FileData
    Close #FB
End Sub