易语言操作硬盘txt扫描删除

本源码主要内容就是对硬盘里的txt文档文件进行扫描并删除的操作,下面是所有代码:

子程序 遍历目录, , , 输出指定目录下的所有文件,包括子目录

.参数 参目录, 文本型, , 不带最后的“\”

.局部变量 文件名, 文本型

.局部变量 目录数组, 文本型, , "0"

.局部变量 i, 整数型

.局部变量 文件类型, 整数型

.如果真 (信息框 (“即将遍历指定目录并删除所有TXT文件!是否继续?”, 1, ) ≠ 0)

返回 ()

.如果真结束

文件类型 = 位或 (#存档文件, #只读文件, #系统文件, #隐藏文件, #子目录)

文件名 = 寻找文件 (选择 (取文本右边 (参目录, 1) ≠ “\”, 参目录 + “\”, 参目录) + “*.*”, 文件类型)

.如果真 (文件名 = “”)

返回 () ' 设定终止条件

.如果真结束

.循环判断首 ()

.如果 (位与 (取文件属性 (参目录 + “\” + 文件名), #子目录) ≠ 0)

' 注意这里不能直接遍历,要先存入数组,

' 否则就是开启了一个新的寻找文件的过程,

' 导致无法列正确的文件

加入成员 (目录数组, 文件名) ' 把目录先存入数组中

.否则

.如果真 (到小写 (取文本右边 (文件名, 4)) = “.txt”)

删除文件 (参目录 + “\” + 文件名)

.如果真结束

' 输出调试文本 (参目录 + “\” + 文件名) ' 文件名则输出

.如果结束

' 寻找下一个

文件名 = 寻找文件 (, 文件类型)

.循环判断尾 (文件名 ≠ “”)

.计次循环首 (取数组成员数 (目录数组), i)

.如果真 (目录数组 [i] ≠ “.” 且 目录数组 [i] ≠ “..”)

' 不是当前目录和父目录才进行扫描

遍历目录 (参目录 + “\” + 目录数组 [i]) ' 递归调用子程序本身

.如果真结束

.计次循环尾 ()

感谢大家对的支持,大家可以测试下代码内容。

以上是 易语言操作硬盘txt扫描删除 的全部内容, 来源链接: utcz.com/z/322262.html

回到顶部