Friday, April 28, 2006

Criar shortcuts em .net

Num pensei que uma coisa tão simples que se faz quase todos os dias fosse tão dificil de fazer a nivel de programação, para criar um simples shortcut tive que chamar o control IWshRuntimeLibrary.
O codigo a seguir ira demostrar como se realiza um shortcut

Imports IWshRuntimeLibrary
Dim teste As WshShell = New WshShell
'caminho do desktop
Dim DesktopDir As String = _
CType(teste.SpecialFolders.Item("Desktop"), String)
Dim shortCut As IWshRuntimeLibrary.IWshShortcut
'nome do shortcut
shortCut = CType(teste.CreateShortcut(DesktopDir & _
"\novo.lnk"), _
IWshRuntimeLibrary.IWshShortcut)
With shortCut
.TargetPath = "caminho do shortcut vai ter"
.WindowStyle = 1
.Description = "descrição"
.WorkingDirectory = DesktopDir
.IconLocation = "caminho do ico"
.Save()
End With
Post a Comment