The need to automate Devonthink 2 Go

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