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.
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.
Valeu era oque eu precisava!!!!