global zielOrdner
-- gewünschten Zielordner wählen
set zielOrdner to (choose folder without invisibles) as string
-- Aktion ausführen
my auswahlKopieren()
-- iTunes Handler
on auswahlKopieren()
tell application "iTunes"
set sel to selection
repeat with nTrack in sel
try
-- Quellpfad holen
set nTrackPfad to location of nTrack
-- Ordner ermitteln
tell application "Finder"
set mOrdnerMutter to (name of (container of nTrackPfad)) as string
set mOrdnerMutterMutter to (name of (container of (container of nTrackPfad))) as string
end tell
-- Zu Ziel kopieren
my verschieben(nTrackPfad, mOrdnerMutter, mOrdnerMutterMutter)
on error
-- hier eine Fehlermeldung ?
end try
end repeat
end tell
end auswahlKopieren
-- Kopieren
on verschieben(nTrackPfad, mOrdnerMutter, mOrdnerMutterMutter)
do shell script "mkdir -p " & quoted form of (POSIX path of (zielOrdner & mOrdnerMutterMutter & ":" & mOrdnerMutter & ":"))
do shell script "cp " & quoted form of (POSIX path of nTrackPfad) & " " & quoted form of (POSIX path of (zielOrdner & mOrdnerMutterMutter & ":" & mOrdnerMutter & ":"))
end verschieben