Sonny Software

Code: Select all

--set the correct path for AttachmentsFolderPath!
--it works only if you have a single Attachment folder
--it works only if the scans are in the Attachments group in DEVONthink

set AttachmentsFolderPath to "/Users/Username/Documents/BookendsAttachments"

tell application "DEVONthink Pro"
	set file_list to selection
	if file_list is not {} then
		set myParent to parent of item 1 of file_list
		set myParent to item 1 of myParent
		repeat with c from 1 to count of items of file_list
			set myName to filename of item c of file_list
			-- if you want to keep the original file then delete the next 2 lines!
			set myFile to quoted form of (AttachmentsFolderPath & "/" & myName)
			do shell script "rm -f " & myFile
			export record item c of file_list to AttachmentsFolderPath
			delete record item c of file_list
		end repeat
		synchronize record myParent
	end if
end tell