A rename and relink script to add a prefix to existing links via input box

I have the script written for AppleScript (assuming you are working with Macintosh). It would be slightly more difficult to write it for JavaScript since it needs to work with the system (Windows or Mac).

set preName to "123_"

set pathList to {}

tell application "Adobe InDesign CC 2019"

tell document 1

set linkList to links

repeat with i from 1 to length of linkList

set thisLink to item i of linkList

set end of pathList to {name of thisLink, file path of thisLink}

end repeat

end tell

end tell

--change name of file

repeat with j from 1 to length of pathList

set thisFile to (item 2 of item j of pathList)

set oldName to item 1 of item j of pathList

try

tell application "Finder"

set name of file thisFile to preName & oldName

end tell

end try

end repeat

tell application "Adobe InDesign CC 2019"

tell document 1

repeat with k from 1 to length of pathList

set oldLink to item k of pathList

set oldPath to item 2 of oldLink

set linkRef to link (item 1 of oldLink)

if status of linkRef is link missing then

set newPath to my getnewPath(oldPath, preName)

set aliasRef to newPath as alias

try

tell linkRef

relink to aliasRef

end tell

end try

end if

end repeat

end tell

end tell

--gets new file path from old file path

on getnewPath(oldLink, preName)

set oldDelim to AppleScript's text item delimiters

set AppleScript's text item delimiters to ":"

set pathItems to text items of oldLink

set oldName to item -1 of pathItems

set item -1 of pathItems to preName & oldName

set newPath to pathItems as text

set AppleScript's text item delimiters to ""

return newPath

end getnewPath