[NSURL]Uniform Type Identifier（UTI）の取得

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

#

#

#

# com.cocolog-nifty.quicktimer.icefloe

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

##自分環境がos12なので2.8にしているだけです

use AppleScript version "2.8"

use framework "Foundation"

use scripting additions

######ログ表示

doLogView()

property objMe : a reference to current application

property objNSString : a reference to objMe's NSString

property objNSURL : a reference to objMe's NSURL

property objNSNotFound : a reference to 9.22337203685477E+18 + 5807

set aliasFilePath to (choose file) as alias

log aliasFilePath as alias

log class of aliasFilePath

set strFilePath to POSIX path of aliasFilePath as text

log strFilePath as text

log class of strFilePath

set ocidFileNsUrl to objNSURL's fileURLWithPath:strFilePath

log ocidFileNsUrl as text

log ocidFileNsUrl's className() as text

set {boolResult, ocidContentType} to ocidFileNsUrl's getResourceValue:(reference) forKey:(objMe's NSURLContentTypeKey) |error|:(missing value)

if ocidContentType is not (missing value) then

log ocidContentType's className() as text

###ここにUTIが入ります

set strUTItype to ocidContentType's identifier as text

log strUTItype as text

end if

#########################ログ表示

to doLogView()

tell application "System Events"

set listAppList to title of (every process where background only is false)

end tell

repeat with objAppList in listAppList

set strAppList to objAppList as text

if strAppList is "スクリプトエディタ" then

tell application "Script Editor"

if frontmost is true then

try

tell application "System Events" to click menu item "ログを表示" of menu "表示" of menu bar item "表示" of menu bar 1 of application process "Script Editor"

end try

end if

end tell

end if

end repeat

end doLogView

#########################