Arquivo da categoria: Visual Basic 6

Como criar atalho utilizando o Visual Basic 6 (VB6)

Tenho um programa feito na linguagem Visual Basic 6 (VB6), e preciso fazer com que ele crie um atalho no Windows XP.

Existem várias formas de fazer isso, a que eu acho mais simples é a seguinte:

<br />
Dim lobj_Atalho As IWshRuntimeLibrary.IWshShortcut<br />
Dim WshShell As New IWshRuntimeLibrary.WshShell</p>
<p>Set lobj_Atalho = WshShell.CreateShortcut(&quot;C:Atalho.lnk&quot;)<br />
lobj_Atalho.TargetPath = &quot;C:pastaprogramaaserexecutadopeloatalho.exe&quot;<br />
lobj_Atalho.WindowStyle = 1<br />
lobj_Atalho.Description = &quot;Descrição do Atalho&quot;<br />
lobj_Atalho.WorkingDirectory = &quot;C:pasta&quot;<br />
lobj_Atalho.IconLocation = &quot;C:pastaprogramaaserexecutadopeloatalho.exe, 0&quot;<br />
lobj_Atalho.Save<br />

Lembre-se que é necessário adicionar a referência “Windows Script Host Object Model” (C:WindowsSystem32wshom.ocx) ao projeto.