Question

易语言如何删除指定文件夹内指定文件后缀格式文件，并且删除信息能在编辑框上显示出来，求源码

能够准确删除指定路径文件夹内子文件后缀格式文件，并且把成功删除文件的信息显示在编辑框上滚动。
例子：
后缀文件为：.apk
搜索文件文件名为：*.apk
删除盘符内所有含有后缀格式为.apk的文件，或者指定文件夹内所有文件。
并且删除文件的信息要在编辑框上显示，如多个文件删除则滚动显示←非常重要。
问题解答后可以给更多的悬赏，混答案的就不要来了。

Answer 1

软件预览:

代码部分:

.版本 2

.程序集 窗口程序集1
.程序集变量 文件名, 文本型

.子程序 _按钮2_被单击
.局部变量 文件目录, 文本型
.局部变量 i, 整数型
.局部变量 文件, 文本型

列表框1.清空 ()
.如果 (倒找文本 (编辑框2.内容, “\”, , 假) ＝ -1)
    文件目录 ＝ 取运行目录 () ＋ “\”
.否则
    文件目录 ＝ 取运行目录 ()
.如果结束
.如果真 (文件目录 ≠ “”)
    文件名 ＝ 寻找文件 (文件目录 ＋ “*.APK”, 32)
    .判断循环首 (文件名 ≠ “”)
        .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
            列表框1.加入项目 (文件目录 ＋ 文件名, )
        .如果真结束
        文件名 ＝ 寻找文件 (, )
    .判断循环尾 ()
.如果真结束

.计次循环首 (列表框1.取项目数 (), i)
    文件 ＝ 列表框1.取项目文本 (i － 1)
    .如果真 (删除文件 (文件))
        编辑框1.加入文本 (“成功删除 ” ＋ 文件 ＋ #换行符)
    .如果真结束

.计次循环尾 ()

.子程序 __启动窗口_创建完毕

编辑框2.内容 ＝ 取运行目录 () ＋ “\”

源码附件:

追问

是指定路径还是盘符内查找？
还是在编辑框2内写入指定路径后寻找并删除，那还不如内嵌绝对路径。
能指定盘符然后全盘查找指定后缀格式文件并且删除么？←能实现这个么？
该源码测试的时候无反应……

Answer 2

.版本 2

.子程序 _按钮1_被单击
.局部变量 CH, 文本型
.局部变量 文件, 文本型

CH ＝ “C:\LS” ' 为指定的文件夹
CH ＝ CH ＋ “\*.apk”
编辑框1.是否允许多行 ＝ 真
编辑框1.滚动条 ＝ 2
文件 ＝ 寻找文件 (CH, )
.判断循环首 (文件 ≠ “”)
.如果真 (删除文件 (文件))
编辑框1.内容 ＝ 编辑框1.内容 ＋ 文件 ＋ #换行符
.如果真结束
文件 ＝ 寻找文件 (, )
.判断循环尾 ()

追问

你这个不能“搜到” 指定文件夹内子文件的指定后缀文件。
能不能搜索指定盘符内所有指定的后缀格式文件？←能实现这个不？
或者搜索 指定文件夹内 所有“子文件内含有的指定后缀格式文件”？

追答

　.版本 2

.子程序 _按钮1_被单击
.局部变量 指定目录, 文本型
.局部变量 子目录, 文本型, , "0"
.局部变量 D, 整数型
.局部变量 i, 整数型

编辑框1.是否允许多行 ＝ 真
编辑框1.滚动条 ＝ 2
指定目录 ＝ “C:\LS”  ' 为指定的文件夹
寻找指定文件 (指定目录 ＋ “\*.apk”)
寻找子目录 (指定目录, 子目录)
D ＝ 取数组成员数 (子目录)
i ＝ 1
.判断循环首 (i ≤ D)
    寻找指定文件 (指定目录 ＋ “\” ＋ 子目录 [i] ＋ “\*.apk”)
    i ＝ i ＋ 1
.判断循环尾 ()

.子程序 寻找指定文件
.参数 目录, 文本型
.局部变量 CH, 文本型
.局部变量 文件, 文本型

文件 ＝ 寻找文件 (CH, )
.判断循环首 (文件 ≠ “”)
    .如果真 (删除文件 (文件))
        编辑框1.内容 ＝ 编辑框1.内容 ＋ 文件 ＋ #换行符
        编辑框1.刷新显示 ()
    .如果真结束
    文件 ＝ 寻找文件 (, )
.判断循环尾 ()

.子程序 寻找子目录
.参数 指定目录, 文本型
.参数 子目录, 文本型, 数组
.局部变量 目录, 文本型

目录 ＝ 寻找文件 (指定目录 ＋ “\*.*”, #子目录)
.判断循环首 (目录 ≠ “”)
    加入成员 (子目录, 目录)
    目录 ＝ 寻找文件 (, )
.判断循环尾 ()

这是针对一层子文件夹进行的搜索,多层可按此思路进行编写

追问

怎么我测试的时候你这个源码没反应？
点击按钮后都无反应，就好像根本没运行一样，而且我是按照你写的思路来创建文件测试的，都无看到有作用。

追答

对不起,上面的程序我没有进行试运行,这次是经过试运行后的界面