Copying folders to new datadase

I have setup my main database for this financial year with lots of folders/groups. I there an easy way to transfer these folders to next years database or should I reorganise my data?
Tony

You could use this script to create a duplicate of the hierarchy. Just select the groups which should be duplicated and run this script in Appleā€™s Script Editor for example.


tell application id "com.devon-technologies.thinkpro2"
	try
		set theNum to my duplicateGroups(the selection, incoming group of current database, " copy")
		if theNum is 0 then error "Please select one or more groups."
	on error error_message number error_number
		if the error_number is not -128 then display alert "DEVONthink Pro" message error_message as warning
	end try
end tell

on duplicateGroups(theRecords, theDestination, theSuffix)
	local theRecord, theName, theCopy, theNum
	set theNum to 0
	tell application id "com.devon-technologies.thinkpro2"
		repeat with theRecord in theRecords
			if type of theRecord is group then
				set theName to name of theRecord
				if theSuffix is not "" then set theName to theName & theSuffix
				set theCopy to create record with {name:theName, type:group} in theDestination
				set theNum to theNum + (my duplicateGroups(children of theRecord, theCopy, "")) + 1
			end if
		end repeat
	end tell
	return theNum
end duplicateGroups