超级文件粉碎机开源

.计次循环首 (拖放超级列表框.取表项数 (), x)
.如果真 (删除前备份选择框.选中)
复制文件 (拖放超级列表框.取标题 (x － 1, 0), 拖放超级列表框.取标题 (x － 1, 0) ＋ “.Bak”)
处理事件 ()
.如果真结束
拖放超级列表框.置标题 (x － 1, 1, 到文本 (暴力删除文件 (拖放超级列表框.取标题 (x － 1, 0))))
.计次循环尾 ()
超级文件粉碎机开源例子。