on run {input, parameters}
tell application id "DNtp"
launch
set theGroup to display group selector
end tell
set thePath to input as text
if thePath does not end with ".download:" and thePath does not end with ".crdownload:" then
tell application id "DNtp"
set theRecord to import thePath to theGroup
set itemLink to reference URL of theRecord
tell application "Finder"
set the clipboard to itemLink
end tell
end tell
end if
end run
1 Like