Script for moving an item to target group by name?

[Ugur]

Is there a script that allows me to move an item to a target location?

In reviewing a folder (group) I would like to quickly move obsolete items to an “archived” folder.

I have found this from @BLUEFROG

move theRecord to the current group

But how would I specify the target group by name? (Haven’t done AppleScritping in a while

[pete31]

@Ugur

But how would I specify the target group by name?

You could use create location, see AppleScript: A brief description of “create location” and a handler.

[cgrunenberg]

A smart rule and its File action might also be an option:

[Ugur]

Thanks for the tips.

I have found a very old post by @cgrunenberg here

Moving a record from one group to another

Christopher, the “Move To Done” example script (see folder “Examples” in scripts folder of disk image) should be a good start: – Move to Done – Created by Christian Grunenberg on Mar Sat 15 2005. – Copyright © 2005. All rights reserved. tell application "DEVONthink Pro" try set theDatabase to current database set theContents to contents of theDatabase set theGroup to create location "/Done" -- set theGroup to parent named "Done" of theDatabase repeat with theContent in theConten…

Modified it slightly and came up with this:

tell application id "DNtp"
	try
		set theDatabase to current database
		set theRecords to (selected records)
		set theGroup to create location "/z PROJECTS DONE"
		-- set theGroup to parent named "z PROJECTS DONE" of theDatabase
		repeat with theRecord in theRecords
			move record theRecord to theGroup
			display notification "Moved <" & name of theRecord & "> to 'z PROJECTS DONE'" with title "Moved group to DONE"
		end repeat
	end try
end tell