指定拡張子のUTI文字列を取得する

AppleScript名：指定拡張子のUTI文字列を取得する

— Created 2016-10-24 by Takaaki Naganoya
— Modified 2016-10-25 by Shane Stanley
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AVFoundation"
use BridgePlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

set aRes to retFileFormatUTI("mov") of me
–>　　"com.apple.quicktime-movie"

set aRes to retFileFormatUTI("mp4") of me
–>　　"public.mpeg-4"

set aRes to retFileFormatUTI("m4v") of me
–>　　"com.apple.m4v-video"

set aRes to retFileFormatUTI("m4a") of me
–>　　"com.apple.m4a-audio"

set aRes to retFileFormatUTI("3gp") of me
–>　　"public.3gpp"

set aRes to retFileFormatUTI("3gp2") of me
–>　　"public.3gpp2"

set aRes to retFileFormatUTI("caf") of me
–>　　"com.apple.coreaudio-format"

set aRes to retFileFormatUTI("wav") of me
–>　　"com.microsoft.waveform-audio"

set aRes to retFileFormatUTI("aif") of me
–>　　"public.aifc-audio"

set aRes to retFileFormatUTI("aifc") of me
–>　　"public.aifc-audio"

set aRes to retFileFormatUTI("amr") of me
–>　　"org.3gpp.adaptive-multi-rate-audio"

set aRes to retFileFormatUTI("mp3") of me
–>　　"public.mp3"

set aRes to retFileFormatUTI("au") of me
–>　　"public.au-audio"

set aRes to retFileFormatUTI("ac3") of me
–>　　"public.ac3-audio"

on retFileFormatUTI(aExt as string)
　　load framework
　　return (current application’s SMSForder’s UTIForExtension:aExt) as list of string or string
end retFileFormatUTI