Existing users, 
tags with replicants - code fixed - Krioni
Let me see if I can get this to work - tried the "code" tags last time, but obviously they do on VT what they do everywhere else - let you post CODE.
property tagsOfSelected : {}
tell application "DEVONthink Pro"
set selectedRecords to the selection
repeat with i from 1 to count of selectedRecords
set oneRecord to id of item i of selectedRecords
set oneRecord to get record with oneRecord
set parentsOfOne to get name of parents of oneRecord
repeat with oneTag in parentsOfOne
set oneTag to oneTag as string -- not as reference
if oneTag is not in tagsOfSelected then set end of tagsOfSelected to oneTag
end repeat
end repeat
choose from list tagsOfSelected with title "Names of parent folders" OK button name "Done" cancel button name "Cancel" with empty selection allowed
end tell
Wednesday, February 28 2007 @ 09:41 AM PST
can do tags with replicants - Krioni
Actually, because DEVONthink allows you to replicate a file into many folders, think of the folders as tags. Instead of marking a file with tags in one spot, replicate it into multiple "tag" folders. Then those folders are your tag clouds.
Here's an AppleScript that would list the names of all the folders the selected (including more than just one) record (file) is in:
property tagsOfSelected : {} tell application "DEVONthink Pro" set selectedRecords to the selection repeat with i from 1 to count of selectedRecords set oneRecord to id of item i of selectedRecords set oneRecord to get record with oneRecord set parentsOfOne to get name of parents of oneRecord repeat with oneTag in parentsOfOne set oneTag to oneTag as string -- not as reference if oneTag is not in tagsOfSelected then set end of tagsOfSelected to oneTag end repeat end repeat choose from list tagsOfSelected with title "Names of parent folders" OK button name "Done" cancel button name "Cancel" with empty selection allowed end tellReply to This
Wednesday, February 28 2007 @ 09:08 AM PST