Update Shortcut

I am trying to use appendfile to update existing shortcut and searching c:\users\public\desktop where the path for Start Up is missing and have the following relevancy ( hope its correct)

exist (Pathname of it) of descendants whose (name of it as lowercase ends with “.lnk” AND (start in pathname of shortcut of it = “”) of it) of folder “c:\users\public\desktop”

As I have multiple shortcuts that are missing startup path I plan to use following in my action script

if (exist file “AcroRd32.exe” of folder “C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader”

delete makeshortcut.vbs
appendfile Set oWS = WScript.CreateObject(“WScript.Shell”)
appendfile oLink.WorkingDirectory = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader"
appendfile oLink.Save
move __appendfile makeshortcut.vbs
waithidden “{pathname of system folder & “\cscript.exe”}” makeshortcut.vbs

else
// 7zip
if (exist file “7z.exe” of folder “C:\Program Files (x86)\7-Zip”)
delete __appendfile
delete makeshortcut.vbs
appendfile Set oWS = WScript.CreateObject(“WScript.Shell”)
appendfile oLink.WorkingDirectory = "C:\Program Files (x86)\7-Zip"
appendfile oLink.Save
move __appendfile makeshortcut.vbs
waithidden “{pathname of system folder & “\cscript.exe”}” makeshortcut.vbs

Does not seem to quite fix the startup path , what am I missing , appreciate input