重复文件删除

ChalkMY

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
a	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

拖放对象1.zc拖放控件 (_启动窗口.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件	文本型

a ＝ 接收到的文件

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
数组	文本型		0
b	整数型
i	整数型
文件名	文本型
重复名	文本型
后缀	文本型

b ＝ 文件_枚举 (a, “*.*”, 数组, 真)
计次循环首 (b, i)
文件名 ＝ 文件_取文件名 (数组 [i], 真)
重复名 ＝ 文本_取出中间文本 (数组 [i], a ＋ “\”, “)”)
如果 (重复名 ≠ “”)
文件_删除到回收站 (a ＋ “\” ＋ 文件名, 1)



计次循环尾 ()
信息框 (“成功”, 0, “提示”, )

i支持库列表	支持库注释
edroptarget	拖放支持库

.版本 2<br /> .支持库 edroptarget<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 a, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 拖放对象1.zc拖放控件 (_启动窗口.取窗口句柄 ())<br /> <br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件, 文本型<br /> <br /> a ＝ 接收到的文件<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 b, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 文件名, 文本型<br /> .局部变量 重复名, 文本型<br /> .局部变量 后缀, 文本型<br /> <br /> b ＝ 文件_枚举 (a, “*.*”, 数组, 真)<br /> .计次循环首 (b, i)<br />     文件名 ＝ 文件_取文件名 (数组 <i>, 真)<br />     重复名 ＝ 文本_取出中间文本 (数组 <i>, a ＋ “\”, “)”)<br />     .如果 (重复名 ≠ “”)<br />         文件_删除到回收站 (a ＋ “\” ＋ 文件名, 1)<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 信息框 (“成功”, 0, “提示”, )

入门程序，各路大神留情

Akari

感谢分享

已注销571294

冰山一景

开源精神必须支持~

wgqxj

谢谢分享

fjsystem

谢谢分享

一个追梦的心

开源精神必须支持~

cfvgbhnj

感谢分享，真好！......

杨明煜

感谢分享，真好！......

孤峰

这是一个很重复名文件不起的软件