(*
(C) Hado Hein ,1998, Berlin, FRG
parts are (C) Apple Computer Inc. (stringLib)
something for developers.
THIS A TOOL nothing for consumers. SO LEARN TO HANDLE IT.

You might have two system folders (with System Picker from Dev CD) on one volume. Very often you'll have to see what`s going on in the other System Folder (extensions and so on).
This script copies selected items from one system folder to the other.
*)

property sieben : "MacHD:System Folder (7.6):"
property acht : "MacHD:System Folder (8.1):"
property stringLib : load script "MacHD:AppleScript Samples:Libraries:stringLib"
-- strLib is found on DevCD / Script Samples

tell application "Finder"
	repeat with I in (get every item in selection)
		set theFolder to (get folder of I)
		
		if (theFolder as string) contains "System Folder (7.6):" then
			set AktLoc to (getEnd of stringLib from (theFolder as string) at "System Folder (7.6):")
			set NewLoc to (acht & AktLoc) as alias
			if AktLoc contains "Scripting Additions:" then
				set NewLoc to (acht & "Scripting Additions:") as alias
			end if
			duplicate I to NewLoc with replacing
			set selected of I to true
			
		else if (theFolder as string) contains "System Folder (8.1):" then
			set AktLoc to (getEnd of stringLib from (theFolder as string) at "System Folder (8.1):")
			set NewLoc to (sieben & AktLoc) as alias
			if AktLoc contains "Scripting Additions:" then
				set NewLoc to (sieben & "Extensions:Scripting Additions:") as alias
			end if
			duplicate I to NewLoc with replacing
			set selected of I to true
			
		else
			return
			
		end if
	end repeat
end tell