-- Finder ウインドウに開いているフォルダの内容（表示）を強制更新

property tmpFile : ".__folder_refresh_temp__"

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