遍历列表，拷贝文件

[alanhe421]

on theSplit(theString, theDelimiter)
	-- save delimiters to restore old settings
	set oldDelimiters to AppleScript's text item delimiters
	-- set delimiters to delimiter to be used
	set AppleScript's text item delimiters to theDelimiter
	-- create the array
	set theArray to every text item of theString
	-- restore the old setting
	set AppleScript's text item delimiters to oldDelimiters
	-- return the result
	return theArray
end theSplit



tell application "Finder"
	
set destFolder to (system attribute "DEST_FOLDER")
	set filestr to "{query}"
	
	set fileList to my theSplit(filestr, ";")
	repeat with theItem in fileList
		set cpStr to "cp " & theItem & " " & destFolder
		
		do shell script cpStr
	end repeat
	
end tell