(DTPtechNote:1397) [AS_Finder] ファイルの内容を空にする

[せうぞー <anonymous at unknown-host>]

リニューアル時にぜんぜんコンテンツがないのに気がついたので、とりあえず前書いたものをアップしておく^^


on open drop_files
	display dialog ("ドラッグ＆ドロップしたファイルの内容を消してしまいます。
、、、いいすか？") as Unicode text
	repeat with my_file in drop_files
		set fh to open for access my_file with write permission
		try
			set eof fh to 0
		on error errMsg number errNum
			close access fh
			display dialog errMsg & return & errNum
		end try
		close access fh
	end repeat
end open