[AppleScript]リソースフォーク（カスタムアイコン）削除

[OS11]書類“〓〓〓〓〓〓”を保存できませんでした。ファイルがロックされています。
https://force4u.cocolog-nifty.com/skywalker/2021/10/post-54992b.html
発生時の
『カスタムアイコン』（リソースフォーク）を削除します

ダウンロード - リソースフォーク削除.zip

(*

リソースフォーク（カスタムアイコン）を削除するための

ドロップレット

*)

--------ダブルクリック起動の始まり

on run

--------ファイル選択ダイアログのデフォルトのディレクトリ

set theDefLoc to path to downloads folder from user domain

--------Uniform Type Identifier指定詳しくは http://goo.gl/6jAQa

set theFileType to "public.data" as text

--------↑のファイルタイプをリスト形式に整形する

set AppleScript's text item delimiters to {","}

set theFileTypeList to every text item of theFileType

--------【プロンプトの文言改行が使えます\nを入れます

set theWithPrompt to theFileType & (ASCII character 13) & "ファイルをえらんでください" & (ASCII character 13) & ""

--------残りのメッセージ

set theWithPromptMes to "選んだファイルの" & (ASCII character 13) & "拡張子を変更します"

--------ダイアログを出して選択されたファイルは「open」に渡す

open (choose file default location theDefLoc ¬

with prompt theWithPrompt & theWithPromptMes ¬

of type theFileTypeList ¬

invisibles true ¬

with multiple selections allowed without showing package contents)

end run

--------ドロップ起動のはじまり

on open DropObj

repeat with ObjFiles in DropObj

--------file informationを取得

set aliasDropFilePass to ObjFiles as alias

set theDropFilePass to POSIX path of aliasDropFilePass

log theDropFilePass

--------ファイル名を変更出来るのはファインダーです

try

set theComandText to ("/usr/bin/xattr -d com.apple.ResourceFork \"" & theDropFilePass & "\"") as text

do shell script theComandText

end try

end repeat

end open