[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


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
			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