Ola
Estou criando um atalho no desktop:
Try
Dim WshShell As New WshShell
Dim Desktop As String = WshShell.SpecialFolders.Item("Desktop")
Dim atalho As IWshShortcut
atalho = WshShell.CreateShortcut(SalvarComo)
With atalho
.TargetPath = txtArquivo.Text
.WindowStyle = 1
.Description = "Nome do Atalho"
.WorkingDirectory = Desktop
.IconLocation = txtArquivo.Text
.Save()
End With
Return True
Catch ex As Exception
Return False
End Try
mas como posso salvar "Destino", com parâmetros?
Tentei mas não deu certo:
.TargetPath = txtArquivo1.Text & " parametro1 " & txtArquivo2.Text