Code: Select all
Set oWS = WScript.CreateObject("WScript.Shell")
sLinkFile = "PotPlayerPortable.lnk"
Set oLink = oWS.CreateShortcut(sLinkFile)
oLink.TargetPath = "C:\ProgramData\imkira3Keys\PotPlayerPortable\PotPlayerPortable.exe"
oLink.Save
Code: Select all
Set oWS = WScript.CreateObject("WScript.Shell")
sLinkFile = "PotPlayerPortable.lnk"
Set oLink = oWS.CreateShortcut(sLinkFile)
oLink.TargetPath = "C:\ProgramData\imkira3Keys\PotPlayerPortable\PotPlayerPortable.exe"
oLink.Save
As I said, I can't use absolute paths so that's not an option. That's why I wanted to do things the other way, see my prior post for more info.
Code: Select all
FileCreateShortcut "A_Variable1" "%USERPROFILE%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs"
Code: Select all
#Requires AutoHotkey v2.0
target := '%ProgramFiles%\AutoHotkey\v2\AutoHotkey.exe'
linkFile := A_ScriptDir '\test.lnk'
workingDir := ''
args := A_ScriptFullPath
FileCreateShortcut target, linkFile, workingDir, args
MsgBox 'Done!', 'Status', 64
Code: Select all
target := A_ScriptDir '\PotPlayerPortable.exe'
linkFile := A_AppData '\Microsoft\Windows\Start Menu\Programs\PotPlayerPortable.lnk'
workingDir := ''
args := ''
FileCreateShortcut target, linkFile, workingDir, args
Users browsing this forum: costelpislac, Descolada and 50 guests