Ligge et Ikon på skrivebordet, kan man det?

Det er osse iorden, hvis den røg ind under Start->Programmer->Mappe->VB Program!

Sådan i VBScript:

set wshShell = wscript.createobject("wscript.shell")
skrivebord = wshshell.specialfolders("Desktop")
Set genvej = wshShell.createshortcut(skrivebord & "\Besked.lnk")
genvej.targetpath = [Sti til dit program]
genvej.iconlocation = [Sti til et ikon hvis det ikke er inkluderet i programmet]
genvej.save

Skal der ikke dimmes noget??

Den siger "object required", når jeg prøver at kører den?
Og stopper i første linie.

Jo der skal dimmes det er kun et lille udsnit af koden.
Angående dit object required spørgsmål: Kører du scriptet i et Visual Basic program? I så fald skal du lave en reference til "Microsoft Scripting Runtime"

Mvh
Kaj

Nå ja, og så lige fjerne "wscript." i første linie.

Ja...de nbliver kørt i et VB 6.0 program...

Set WshShell = wscript.CreateObject("shell")
    skrivebord = WshShell.specialfolders("Desktop")
    Set genvej = WshShell.createshortcut(skrivebord & "\TEST.lnk")
    genvej.targetpath = txtINSTALL.Text
    genvej.iconlocation = txtINSTALL.Text
    genvej.save

Hvad skal der dimmes?
Dim WshShell as ???
Dim Skrivbord as ???

Sådan ville mit se ud hvis jeg kørte det i VB (og ikke som et script):

Sub test()
Dim WshShell, skrivebord, genvej

set wshShell = createobject("wscript.shell")
skrivebord = wshshell.specialfolders("Desktop")
Set genvej = wshShell.createshortcut(skrivebord & "\Besked.lnk")
genvej.targetpath = "V:\Departments\461\Diverse\Knc\script\besked.vbe"
genvej.iconlocation = "V:\Departments\461\Diverse\Knc\script\besked.ico"
genvej.save

MsgBox "Der er installeret en genvej på din desktop.",vbinformation,"Installation"
Set WshShell = Nothing
Set genvej = Nothing
   
End Sub

Det her er BARE SUPER!!