易语言 删除文件夹下面的同名称文件

Question

比如 我有一个目录为 web 目录里面有n个不同名字的文件夹 ，这些文件夹下面有统一的一个文件site.txt 要如何才能统一删除site.txt 而不影响其他的文件呢？ 求大佬看一下怎么写， 万分感谢 如果能将源码贴出来那就再好不过了

Answer 1

.版本 2
.支持库 spec

.子程序 删除特征文件
.参数 文件目录, 文本型
.参数 文件特征, 文本型
.局部变量 文件名, 文本型

文件目录 ＝ 子文本替换 (文件目录 ＋ “\”, “\\”, “\”, , , 真)
文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, 55)
.判断循环首 (文件名 ≠ “”)

    .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
        .如果真 (取文件属性 (文件目录 ＋ 文件名) ＝ #子目录)
            删除特征文件 (文件目录 ＋ 文件名, 文件特征)
        .如果真结束
        .如果真 (寻找文本 (文件名, 文件特征, , 假) ≠ -1)
            .如果 (删除文件 (文件目录 ＋ 文件名))
                调试输出 (“文件删除成功： ” ＋ 文件目录 ＋ 文件名)
            .否则
                调试输出 (“文件删除失败： ” ＋ 文件目录 ＋ 文件名)
            .如果结束

        .如果真结束

    .如果真结束
    文件名 ＝ 寻找文件 (, 55)
.判断循环尾 ()

Answer 2

这个就是普通的文件夹遍历，遍历中如果找到文件名是site.txt就删除就行了，你可以简单参照这里网页链接

改一下输出为判断并删除就行了。

追问

谢谢您的解答， 方便贴出一下源码吗？我自己敲了半天报错。

Answer 3

目录 ＝ 取运行目录 ()＋ “\”
文件名 ＝ 寻找文件 (目录 ＋ “*.ico”, )
.判断循环首 (文件名 ≠ “”) ' 判断文件名是否有效，有效向下执行搜索。
删除文件 (文件名)
文件名 ＝ 寻找文件 (, ) ' 继续搜寻文件
.判断循环尾 ()追问

谢谢你的解答， 但是你这个运行不了，执行没有效果

本回答被网友采纳