Ordnerstruktur ohne Inhalt kopieren

International Deutsch
2

Sie könnten dazu folgendes Skript verwenden:


-- Duplicate hierarchy

tell application id "DNtp"
	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 "DNtp"
		repeat with theRecord in theRecords
			if type of theRecord is group then
				set theName to ((name of theRecord) as string) & 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

Zunächst wählen Sie die gewünschten Gruppen aus und führen dann das Skript aus. Das Skript kopiert dabei die Gruppen incl. Untergruppen in den Eingang der Datenbank. Anschließend müssen Sie die Kopien nur noch in die gewünschte Zieldatenbank verschieben.

1 Like