on replaceText(find, replace, subject)
    set prevTIDs to text item delimiters of AppleScript
    set text item delimiters of AppleScript to find
    set subject to text items of subject

    set text item delimiters of AppleScript to replace
    set subject to "" & subject
    set text item delimiters of AppleScript to prevTIDs

    return subject
end replaceText

on translit(tekst)
    set tekstn to replaceText("а", "a", tekst)
    set tekstn to replaceText("б", "b", tekstn)
    set tekstn to replaceText("в", "v", tekstn)
    set tekstn to replaceText("г", "g", tekstn)
    set tekstn to replaceText("д", "d", tekstn)
    set tekstn to replaceText("е", "e", tekstn)
    set tekstn to replaceText("ё", "ie", tekstn)
    set tekstn to replaceText("ж", "j", tekstn)
    set tekstn to replaceText("з", "z", tekstn)
    set tekstn to replaceText("и", "i", tekstn)
    set tekstn to replaceText("й", "i'", tekstn)
    set tekstn to replaceText("к", "k", tekstn)
    set tekstn to replaceText("л", "l", tekstn)
    set tekstn to replaceText("м", "m", tekstn)
    set tekstn to replaceText("н", "n", tekstn)
    set tekstn to replaceText("о", "o", tekstn)
    set tekstn to replaceText("п", "p", tekstn)
    set tekstn to replaceText("р", "r", tekstn)
    set tekstn to replaceText("с", "s", tekstn)
    set tekstn to replaceText("т", "t", tekstn)
    set tekstn to replaceText("у", "u", tekstn)
    set tekstn to replaceText("ф", "f", tekstn)
    set tekstn to replaceText("х", "h", tekstn)
    set tekstn to replaceText("ц", "c", tekstn)
    set tekstn to replaceText("ч", "ch", tekstn)
    set tekstn to replaceText("ш", "sh", tekstn)
    set tekstn to replaceText("щ", "sh'", tekstn)
    set tekstn to replaceText("ъ", "'", tekstn)
    set tekstn to replaceText("ы", "i", tekstn)
    set tekstn to replaceText("ь", "'", tekstn)
    set tekstn to replaceText("э", "e", tekstn)
    set tekstn to replaceText("ю", "u", tekstn)
    set tekstn to replaceText("я", "'ya", tekstn)
    return tekstn
end translit

on run {input, parameters}

    set my_path to " /users/glock/tmp/mus" -- указываем адрес папки, в которую нужно слить музыку.
    set my_playlist to "Car Music 2 GB" -- указываем название плэйлиста в itunes из которого будем копировать музыку.
    --убираем этот коментарий и "--" в начале следующей строки, если папку сначала нужно очищать
    --do shell script "rm " & my_path & " *.mp3"
    tell application "iTunes"
        activate
        --данный блок (следующие 4 строки) "отключить" с помощью знаком комментирования "--" если ваш плейлист не является смартплэйлистом
        set mTracks to the file tracks of playlist my_playlist
        repeat with tune in mTracks
            delete tune
        end repeat

        set mTracks to the file tracks of playlist my_playlist
        repeat with tune in mTracks
            set floc to (get location of tune)
            set file_name to name of (info for floc)
            set a to my translit(my replaceText(":", ".", (get artist of tune))) as string
            set n to my translit(my replaceText(":", ".", (get name of tune))) as string
            set y to (get year of tune)
            do shell script "cp " & quoted form of POSIX path of (floc as string) & my_path & quoted form of POSIX path of ((y as string) & "." & (a as string) & " - " & (n as string) & ".mp3")
        end repeat
    end tell
    -- данный блок (сл. 3 строки) откидывает флешку
    --tell application "Finder"
    --  eject disk "CARD_2GB"
    --end tell
    display dialog "Музыка успешно скопирована"


    return input
end run