-- Finder ウインドウに開いているフォルダとその下階層すべての .DS_Store ファイルを消去

property findPtn : ".DS_Store"

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