Oprette genvej på skrivebordet

Jeg har en stump kode her, som jeg bruger til at oprette en Url-genvej. Men den burde kunne bruges til alm. shortcuts også med få justeringer:

Private Sub CreateInternetShortcut(FullPath, TargetURL, IconURL)
    Dim iFile As Integer
   
    iFile = FreeFile

    Open FullPath For Output As #iFile
    Print #iFile, "[Default]"
    Print #iFile, "BASEURL=" & TargetURL
   
    Print #iFile, "[InternetShortcut]"
    Print #iFile, "URL=" & TargetURL
   
    Print #iFile, "IconFile=" & IconURL
    Print #iFile, "IconIndex=0"   
    Close #iFile
End Sub

FullPath er stien hvor ikonet skal placeres.
IconURL er stien til ikonet
TargetURL er destinationen

hej

du kan også gøre det vha en wshell:

http://www.ostrosoft.com/vb/projects/shortcut.asp

/hiks

sker der mer her?

Hej Thomas !
Selv efter at jeg har været på ferie i næsten 4 uger, har jeg ikke haft særlig held med dine 2 forslag.
Ved den første måde du beskriver, sker der ingen ting, jeg forstår nok ikke rigtig metoden.
Ved det andet forslag får jeg følgende fejlmeddelelse.
Run-time error – 2147352567 (8002J009) i programlinien
Set wShortcut = wShell.CreateShortCut(Lst.List(Lst.ListIndex) & "\" & txtname & ".ink")

Har du en løsning, jeg er ikke bevandret i Script programmering
Hilsen Per