How to: Samla markerade filer och mappar i finder till en ny mapp

tell application "Finder"
		(* what files do you want to gather into a new folder? *)
		set selectedItems to selection
		if selectedItems is not {} then
			(* topLevelName assures the uppermost file-level-directory will be selected in case of multiple selections in list or column view. *)
			set topLevelName to name of item 1 of selectedItems
			(* silly set of workarounds to override vanilla AppleScript's lack of permission when playing in the .Trash folders *)
			set selectionPath to POSIX path of file ((item 1 of selectedItems) as string)
			set selectionPath to ((characters 1 thru ((offset of topLevelName in selectionPath) - 1)) in selectionPath) as string
			(* Modify path string to create a unique target folder using date and time *)
			set dateString to do shell script "date \"+%Y.%m.%d %a %I.%M.%S\"" -- this line broken out for easy editing
			set newFolder to selectionPath & (dateString) -- rearrange as you please; is set this way for proper name sorting
			(* more workarounds to allow playing in the .Trash *)
			do shell script "mkdir " & quoted form of newFolder
			set newFolder to (POSIX file newFolder) as alias
			move selectedItems to newFolder
			reveal newFolder
		end if
	end tell

set dateString to do shell script "date \"+%Y.%m.%d %a %I.%M.%S\""