CDs/DVDs automatisch nach dem Einlegen kopieren und auswerfen

Ich sichere gerade meine gesammelten DVDs/CDs auf meinem NAS und das sind so ca. 200.Alle von Hand zu kopieren ist nicht nur nervig, sonder kostet auch viel Zeit, da ich nicht immer gleich mitbekommen, wenn ein Kopiervorgang fertig ist.Deshalb habe ich eine Ordner-Aktion geschrieben, die ich an den unsichtbaren “Volumes” Ordner angehängt habe. Sobald nun ein neues Medium eingelegt wird, wird dieses nach einem kurzen Dialog mit Timeout auf das NAS kopiert und anschließend ausgeworfen.Hier zunächst einmal der Code:  

Code zum markieren einmal anklicken

–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

Man zieht einen Alias von dem Zielverzeichnis direkt auf das Start-Volumen und nennt ihn “COPYALIAS” so weiss das Skript, wohin kopiert werden soll.