アクセス権変更

on run
	set curItem to choose folder with prompt "フォルダを選択"
	my chmod777(curItem)
end run

on open theList
	repeat with curItem in theList
		my chmod777(curItem)
	end repeat
end open

on chmod777(curItem)
	set myPath to POSIX path of curItem
	set cmdStr to "chmod -R 777 " & myPath
	do shell script cmdStr
end chmod777