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