易语言 如何删除指定大小的文件

丰晨软件

例如读取优盘后，仅判断EXE程序，删除小于100kb（可自定义设置大小）的程序。

aipca

做在一起了，删除小于100KB的EXE

红颜脸庞仍娇俏

文件_枚举
取文件尺寸

lxboys

.版本 2
.支持库 spec

.子程序 开始, 文本型
.参数 盘符, 文本型, , 如 C D E F
.参数 大小, 整数型, 可空, 空为100K
.局部变量 大小限制, 整数型

.如果 (大小 ＝ 0)
    大小限制 ＝ 到整数 (大小) × 1024
.否则
    大小限制 ＝ 100 × 1024
.如果结束
.如果 (系统_取磁盘类型 (盘符) ＝ 1)
    返回 (删除 (盘符 ＋ “:\”, 大小限制))
.否则
    返回 (“不是U盘”)
.如果结束


.子程序 删除, 文本型
.参数 文件夹路径, 文本型
.参数 大小限制, 整数型
.局部变量 文件数组, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 删除数量, 整数型

文件_枚举 (文件夹路径, “*.exe”, 文件数组, 真, , 真)
.计次循环首 (取数组成员数 (文件数组), x)
    .如果真 (文件_取大小 (文件数组 [x]) ＞ 大小限制)
        删除文件 (文件数组 [x])
        删除数量 ＝ 删除数量 ＋ 1
    .如果真结束

.计次循环尾 ()
.如果 (删除数量 ＞ 0)
    返回 (“成功：共删除” ＋ 到文本 (删除数量) ＋ “个”)
.否则
    返回 (“未找到符合的文件”)
.如果结束


.子程序 _按钮1_被单击

调试输出 (开始 (“F”, 200))

丰晨软件

lxboys 发表于 2025-2-26 11:11
.版本 2
.支持库 spec

.版本 2

    文件_枚举 (U盘列表 , “*.exe”, EXE, 真, , )
    .如果真 (取数组成员数 (EXE) ＞ 0)
        .计次循环首 (取数组成员数 (EXE), iiiii)
            ' 删除文件 (EXE [iiiii])
        .计次循环尾 ()

这个是判断优盘是否有EXE程序来删除，能不能修改一下，判断程序小于等于多少KB来删除该程序。

lxboys

丰晨软件 发表于 2025-2-26 11:46
.版本 2

    文件_枚举 (U盘列表 , “*.exe”, EXE, 真, , )

文件_取大小 (文件数组 [x]) ＞ 大小限制
这不是大小限制吗？

开始 (“F”, 200)  
200就是200KB
如果要：判断程序小于等于多少KB来删除该程序。
文件_取大小 (文件数组 [x]) < 大小限制  这里符号>改为<一下就行了

补充内容 (2025-2-26 11:58):
小于等于  改为≤  就好