本源码主要内容就是对硬盘里的txt文档文件进行扫描并删除的操作,下面是所有代码:
成都创新互联公司-专业网站定制、快速模板网站建设、高性价比江门网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式江门网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖江门地区。费用合理售后完善,十余年实体公司更值得信赖。
子程序 遍历目录, , , 输出指定目录下的所有文件,包括子目录 .参数 参目录, 文本型, , 不带最后的“\” .局部变量 文件名, 文本型 .局部变量 目录数组, 文本型, , "0" .局部变量 i, 整数型 .局部变量 文件类型, 整数型 .如果真 (信息框 (“即将遍历指定目录并删除所有TXT文件!是否继续?”, 1, ) ≠ 0) 返回 () .如果真结束 文件类型 = 位或 (#存档文件, #只读文件, #系统文件, #隐藏文件, #子目录) 文件名 = 寻找文件 (选择 (取文本右边 (参目录, 1) ≠ “\”, 参目录 + “\”, 参目录) + “*.*”, 文件类型) .如果真 (文件名 = “”) 返回 () ' 设定终止条件 .如果真结束 .循环判断首 () .如果 (位与 (取文件属性 (参目录 + “\” + 文件名), #子目录) ≠ 0) ' 注意这里不能直接遍历,要先存入数组, ' 否则就是开启了一个新的寻找文件的过程, ' 导致无法列正确的文件 加入成员 (目录数组, 文件名) ' 把目录先存入数组中 .否则 .如果真 (到小写 (取文本右边 (文件名, 4)) = “.txt”) 删除文件 (参目录 + “\” + 文件名) .如果真结束 ' 输出调试文本 (参目录 + “\” + 文件名) ' 文件名则输出 .如果结束 ' 寻找下一个 文件名 = 寻找文件 (, 文件类型) .循环判断尾 (文件名 ≠ “”) .计次循环首 (取数组成员数 (目录数组), i) .如果真 (目录数组 [i] ≠ “.” 且 目录数组 [i] ≠ “..”) ' 不是当前目录和父目录才进行扫描 遍历目录 (参目录 + “\” + 目录数组 [i]) ' 递归调用子程序本身 .如果真结束 .计次循环尾 ()
感谢大家对创新互联的支持,大家可以测试下代码内容。
分享标题:易语言操作硬盘txt扫描删除
本文URL:/article46/ipjhhg.html
成都网站建设公司_创新互联,为您提供Google、自适应网站、手机网站建设、网站内链、用户体验、建站公司
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联