Shortcut op desktop (VB)

[Danielxmovies]

Hallo,

Ik wil in mijn programmatje dat ie een shortcut maakt op desktop.

Kan dit zonder externe dll?

 

[JoZ1]

http://www.helpmij.nl/forum/showthr...g-maken-op-bureaublad?highlight=snelkoppeling

 

[Danielxmovies]

Oke waar moet ik dan locatie van exe neer zetten

 

[JoZ1]

Dat snap ik even niet.

Locatie van executable ergens neerzetten?

 

[Danielxmovies]

Ehm dit maakt een shortcut van je eigen programma denk.

maar kan ik doen dat bijv mijn programma een shortcut maakt van andere exe.

Dus bijv.

C://hallo.exe

Komt een shortcut van in je desktop?

 

[JoZ1]

IconPath en TargetPath van het shortcut-object veranderen.

 

[Danielxmovies]

bij deze code?!:

IO.File.Copy(Application.StartupPath & "\app.lnk", My.Computer.FileSystem.SpecialDirectories.Desktop & "\app.lnk")

dat kan nie

 

[JoZ1]

Nee, die code geldt dan ook alleen als je zelf al een shortcut in je programmamap hebt staan. (Beter lezen )

Ik ging er vanuit dat je deze code gebruikte: http://www.knowdotnet.com/articles/createshortcutondesktop.html
Voortaan duidelijker zijn; dat voorkomt misverstanden.

 

[Danielxmovies]

die is zo groot

9 errors.

Imports IWshRuntimeLibrary

werkt niet

 

[JoZ1]

Kom op, joh:

How do I create a Shortcut on the Desktop from VB.NET or C#.Net? I also need to pass a user id and password so that I can launch the program and log it on to the database without the user having to login. In VB6, you had to use the Windows Scripting DLL. In .NET, since this facility has not been moved to the Framework, you still must use the same approach through Com Interop.

To get started creating a Shortcut on the Desktop, you must include a Reference to the Windows Scripting Library. You do this by right-clicking on the References folder in the Solution Explorer. Select the Add Reference menu. From the Add Reference dialog, click the Com Tab and select the Windows Scripting Host Object Model and click the Add button.

Moet ik alles voorkauwen?

 

[Danielxmovies]

Ja sorry nu heeft ie problemen met WshShell en hoe activereer ik de Shortcut maker?

 

[JoZ1]

'k Heb de code aangepast, nu is-ie iets korter:

Imports IWshRuntimeLibrary

[cpp]Private Sub CreateShortCut(Path_Exe As String, Dir_Shortcut As String)
Try
Dim shell As New WshShell
Dim DesktopDir As String = Dir_Shortcut
Dim shortCut As IWshRuntimeLibrary.IWshShortcut
shortCut = CType(shell.CreateShortcut(DesktopDir & "\test.lnk"), IWshRuntimeLibrary.IWshShortcut)
With shortCut
.TargetPath = Path_Exe
.WindowStyle = 1
.Description = "Beschrijving"
.WorkingDirectory = DesktopDir
.IconLocation = Path_Exe & ", 0"
.Save()
End With
Catch ex As Exception
''//Evt fouten handlen
End Try
End Sub[/cpp]

 

[Danielxmovies]

Oke Mooi

Shell fouten zijn weg targets ingedaan.

Nu alleen nog de shortcut creator.

Hoe start ik die?

Gewoon CreateShortcutter()

werkt niet

 

[JoZ1]

Zoals je ziet kunnen functies ook argumenten hebben.

[cpp]CreateShortCut("C:\Hallo.exe", My.Computer.FileSystem.SpecialDirectories.Desktop)[/cpp]

 

[edmoor]

Taai spul JoZ1.
Goed kauwen hoor!

 

[Danielxmovies]

Jah

Jah

Maar hij maakt de file niet aan:

[CPP] Private Sub CreateShortCutOT(ByVal Dir_Shortcut As String)
Try
Dim shell As New WshShell
Dim DesktopDir As String = Dir_Shortcut
Dim shortCut As IWshRuntimeLibrary.IWshShortcut
shortCut = CType(shell.CreateShortcut(DesktopDir & "\test.lnk"), IWshRuntimeLibrary.IWshShortcut)
With shortCut
.TargetPath = (TextBox1.Text + "\Island Craft\Island_Craft_Installer.exe")
.WindowStyle = 1
.Description = "Island Craft"
.WorkingDirectory = DesktopDir
.IconLocation = (TextBox1.Text + "\Island Craft\Island_Craft_Installer.exe") & ", 0"
.Save()
End With
Catch ex As Exception
''//Evt fouten handlen
End Try
Process.Start(TextBox1.Text + "\Island Craft\Island_Craft_Installer.exe")
Me.Close()[/CPP]

 

[edmoor]

Zo is het ook niet de bedoeling, dat is niet wat JoZ1 zegt.
En je mist nog een stukje van zijn voorbeeld.

 

[Danielxmovies]

Ehm ja maar die heb ik ook

 

[JoZ1]

Taai spul JoZ1.
Goed kauwen hoor!

Inderdaad edmoor
Maar ik ben een alleseter


@Danielxmovies:
Je hebt inderdaad mijn voorbeeld ingrijpend aangepast. Vandaar dat 't niet meer werkt.
Probeer dit eens:

[cpp]Private Sub CreateShortCutOT()
Try
Dim shell As New WshShell
Dim shortCut As IWshRuntimeLibrary.IWshShortcut
shortCut = CType(shell.CreateShortcut(My.Computer.FileSystem.SpecialDirectories.Desktop & "\test.lnk"), IWshRuntimeLibrary.IWshShortcut)
With shortCut
.TargetPath = (TextBox1.Text + "\Island Craft\Island_Craft_Installer.exe")
.WindowStyle = 1
.Description = "Island Craft"
.WorkingDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
.IconLocation = (TextBox1.Text + "\Island Craft\Island_Craft_Installer.exe") & ", 0"
.Save()
End With
Catch ex As Exception
''//Evt fouten handlen
End Try
Process.Start(TextBox1.Text + "\Island Craft\Island_Craft_Installer.exe")
Me.Close()
End Sub[/cpp]

 

[edmoor]

Je bent te goed voor deze wereld

Het enige argument kan zo trouwens ook wel weg.