易语言操作硬盘txt扫描删除
本源码主要内容就是对硬盘里的txt文档文件进行扫描并删除的操作,下面是所有代码:
子程序遍历目录,,,输出指定目录下的所有文件,包括子目录 .参数参目录,文本型,,不带最后的“\” .局部变量文件名,文本型 .局部变量目录数组,文本型,,"0" .局部变量i,整数型 .局部变量文件类型,整数型 .如果真(信息框(“即将遍历指定目录并删除所有TXT文件!是否继续?”,1,)≠0) 返回() .如果真结束 文件类型=位或(#存档文件,#只读文件,#系统文件,#隐藏文件,#子目录) 文件名=寻找文件(选择(取文本右边(参目录,1)≠“\”,参目录+“\”,参目录)+“*.*”,文件类型) .如果真(文件名=“”) 返回()'设定终止条件 .如果真结束 .循环判断首() .如果(位与(取文件属性(参目录+“\”+文件名),#子目录)≠0) '注意这里不能直接遍历,要先存入数组, '否则就是开启了一个新的寻找文件的过程, '导致无法列正确的文件 加入成员(目录数组,文件名)'把目录先存入数组中 .否则 .如果真(到小写(取文本右边(文件名,4))=“.txt”) 删除文件(参目录+“\”+文件名) .如果真结束 '输出调试文本(参目录+“\”+文件名)'文件名则输出 .如果结束 '寻找下一个 文件名=寻找文件(,文件类型) .循环判断尾(文件名≠“”) .计次循环首(取数组成员数(目录数组),i) .如果真(目录数组[i]≠“.”且目录数组[i]≠“..”) '不是当前目录和父目录才进行扫描 遍历目录(参目录+“\”+目录数组[i])'递归调用子程序本身 .如果真结束 .计次循环尾()
感谢大家对毛票票的支持,大家可以测试下代码内容。