set iconList to {"com.barebones.bbedit", "com.barebones.textwrangler", "com.apple.Finder"}
repeat with i in iconList
　　set aPath to retIconPath(i) of me
　　if aPath is not equal to false then
　　　　display dialog "ICNS test" with title i with icon ((POSIX file aPath) as alias) buttons {"OK"} default button 1
　　end if
end repeat

–指定バンドルIDのアプリケーションのアイコンのフルパスを取得する
on retIconPath(anID)
　　set aRes to chkAppIsInstalled(anID) of me
　　if aRes = false then return false
　　set appPathPOSIX to (current application’s NSWorkspace’s sharedWorkspace()’s absolutePathForAppBundleWithIdentifier:anID) as string
　　set anIconPath to getIconFilePath(appPathPOSIX) of me
　　return anIconPath
end retIconPath

–指定バンドルIDのアプリケーションが存在しているかチェック
on chkAppIsInstalled(aBundleID as string)
　　set aRes to current application’s NSWorkspace’s sharedWorkspace()’s URLForApplicationWithBundleIdentifier:aBundleID
　　set bRes to (aRes is not equal to missing value)
　　return bRes
end chkAppIsInstalled