hubionmac.com

--Folder action to copy contents of inserted media to some other place...

on adding folder items to this_folder after receiving these_items

try

tell application "Finder"

set b to POSIX path of ((original item of alias file "COPYALIAS" of startup disk) as alias)

end tell

repeat with this_ in these_items

tell application "Finder"

display dialog ("copy " & (name of this_) & "?") as text giving up after 3

set itemname to name of this_

set copypath to (original item of alias file "COPYALIAS" of startup disk)

set a to POSIX path of this_

--set a to (characters 1 through -2 of a) as text

end tell

set bb to checkname_now_suffix(itemname, copypath, false)

do shell script "cp -R " & quoted form of a & " " & quoted form of b & quoted form of bb

tell application "Finder"

eject this_

end tell

end repeat

on error msg

tell application "Finder"

activate

display dialog msg

end tell

end try

end adding folder items to

on checkname_now_suffix(n, D, looped)

tell application "Finder"

set thefiles to name of every item of D

end tell

if thefiles contains n then

if looped = false then

set n to n & " 1"

else

set cc to count of every character of last word of n

set cn to ((last word of n) as integer) + 1

set n to ((characters 1 through (-1 * (cc + 1)) of n) as text) & cn

checkname_now_suffix(n, D, counter, true)

end if

else

return n

end if

end checkname_now_suffix