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:

Dim lobj_Atalho As IWshRuntimeLibrary.IWshShortcut
Dim WshShell As New IWshRuntimeLibrary.WshShell

Set lobj_Atalho = WshShell.CreateShortcut("C:Atalho.lnk")
lobj_Atalho.TargetPath = "C:pastaprogramaaserexecutadopeloatalho.exe"
lobj_Atalho.WindowStyle = 1
lobj_Atalho.Description = "Descrição do Atalho"
lobj_Atalho.WorkingDirectory = "C:pasta"
lobj_Atalho.IconLocation = "C:pastaprogramaaserexecutadopeloatalho.exe, 0"
lobj_Atalho.Save

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

Paulo A. Costa

Natural de Salvador-BA, é graduado em Analise de Sistemas pela Universidade Católica do Salvador (2003), e especialista em Engenharia de Software pela Universidade Salvador (2010). Exerce atualmente o cargo de Analista Judiciário na Justiça do Trabalho.