用易语言写扫描全盘的txt格式文本、并删除

 

子程序 遍历目录, , , 输出指定目录下的所有文件，包括子目录
.参数 参目录, 文本型, , 不带最后的“\”
.局部变量 文件名, 文本型
.局部变量 目录数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 文件类型, 整数型

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

文件类型 ＝ 位或 (#存档文件, #只读文件, #系统文件, #隐藏文件, #子目录)
文件名 ＝ 寻找文件 (选择 (取文本右边 (参目录, 1) ≠ “\”, 参目录 ＋ “\”, 参目录) ＋ “*.*”, 文件类型)
.如果真 (文件名 ＝ “”)
    返回 ()  ' 设定终止条件
.如果真结束

.循环判断首 ()
    .如果 (位与 (取文件属性 (参目录 ＋ “\” ＋ 文件名), #子目录) ≠ 0)
        ' 注意这里不能直接遍历，要先存入数组，
        ' 否则就是开启了一个新的寻找文件的过程，
        ' 导致无法列正确的文件
        加入成员 (目录数组, 文件名)  ' 把目录先存入数组中
    .否则
        .如果真 (到小写 (取文本右边 (文件名, 4)) ＝ “.txt”)
            删除文件 (参目录 ＋ “\” ＋ 文件名)
        .如果真结束
        ' 输出调试文本 (参目录 ＋ “\” ＋ 文件名)  ' 文件名则输出
    .如果结束
    ' 寻找下一个
    文件名 ＝ 寻找文件 (, 文件类型)
.循环判断尾 (文件名 ≠ “”)

.计次循环首 (取数组成员数 (目录数组), i)
    .如果真 (目录数组 [i] ≠ “.” 且 目录数组 [i] ≠ “..”)
        ' 不是当前目录和父目录才进行扫描
        遍历目录 (参目录 ＋ “\” ＋ 目录数组 [i])  ' 递归调用子程序本身
    .如果真结束

.计次循环尾 ()

 

是不是很简单呢!!!  相关文章 :软件开发属于年轻人的世界