-- Finder ウインドウに開いているフォルダとその下階層すべての分離リソースファイルを消去
-- 注：分離リソースファイル (._hoge) は、リソースフォークの存在できないボリュームにて
-- リソースフォークを保持するための物。よって HFS/HFS+ のボリュームには存在しませぬ。

property findPtn : "._*"

tell application "Finder"
	try
		close (every window whose floating is true)
		if collapsed of the front window then error
		set theFldr to quoted form of (POSIX path of ((folder of the front window) as alias))
		do shell script "find " & theFldr & " -name " & quoted form of findPtn & " -delete"
	on error
		beep
		display dialog "対象の Finder ウインドウが無いっぽい。" buttons {"あらま"} default button 1 with icon caution
	end try
end tell