Hola, tengo una aplicación que crea un acceso directo a cualquier archivo que seleccione.
El tema es que en destino aparece:
Destino: "Direccion del archivo .exe"
Y yo necesito agregarle unos parametros, por ej:
-foto hola.jpg -ram 256
Osea:
Destino: "Direccion del archivo .exe" -foto hola.jpg -ram 256
Mi código
Código:
Dim Camino As String = "g:\" & txt_svname.Text & ".lnk"
If Not File.Exists(Camino) Then
'Creamos el acceso directo
Dim ob As Object = CreateObject("WScript.Shell")
Dim vlnk As Object = ob.CreateShortcut(Camino)
'Buscamos nuestro .exe, puede estar en cualquier carpeta
vlnk.Targetpath = TextBox1.Text
vlnk.Save()
End If
Solucionado: vlnk.arguments = "argumento"