Question

这个用易语言编写的文件粉碎器出什么问题了？

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

' 文件粉碎。》

.子程序 _按钮1_被单击

.如果 (通用对话框1.打开 ())
编辑框1.内容 ＝ 通用对话框1.文件名
.否则

.如果结束

.子程序 _按钮2_被单击

.如果真 (文件是否存在 (编辑框1.内容) ＝ 假)
信息框 (“欢迎使用粉碎机，你要粉碎的东东将永久消失”, #错误图标, )
返回 ()
.如果真结束
写到文件 (编辑框1.内容, 取空白字节集 (取文件长度 (编辑框1.内容)))
删除文件 (编辑框1.内容)

信息框 (“粉碎成功，请给我钱！”, 0, )

Answer 1

不得不说你的“文件粉碎器”有些垃圾

Answer 2

很简单啦：
.版本 2

.子程序 __启动窗口_创建完毕

' 文件粉碎。》

.子程序 _按钮1_被单击

.如果 (通用对话框1.打开 ())
编辑框1.内容 ＝ 通用对话框1.文件名
.否则

.如果结束

.版本 2

.版本 2

.子程序 _按钮2_被单击

.如果 (文件是否存在 (编辑框1.内容) ＝ 真)
.如果真 (信息框 (“欢迎使用粉碎机，你要粉碎的东东将永久消失”, #警告图标 ＋ #是否钮, ) ＝ #否钮)
返回 ()
.如果真结束

.否则
信息框 (“文件不存在。”, #错误图标, )
.如果结束

写到文件 (编辑框1.内容, 取空白字节集 (取文件尺寸 (编辑框1.内容)))
删除文件 (编辑框1.内容)

信息框 (“粉碎成功，请给我钱！”, 0, )
信息框 (“粉碎成功，请给我钱！”, 0, )
改了一小部分。
jdwz2009 ，不一定用 取文件长度 (打开文件 (编辑框1.内容, , ))，也可以用 取文件尺寸 (编辑框1.内容)