删除目录下的全部文件但保留目录本身

云少i

https://125.confly.eu.org/forum.php?mod=viewthread&tid=14798666    我写自己的。

凌哥

  

子程序名	返回值类型	公开	备 注
L_目录_清空	逻辑型		清空指定目录下的所有文件，但不删除里面的目录
参数名	类 型	参考	可空	数组	备 注
欲清空的目录名称	文本型				目录末尾有无"\"均可；如果目录中存在子目录，里面的文件将被一并删除，因此使用本命令请千万慎重
处理只读属性	逻辑型				默认为真，会自动处理文件目录的"只读"属性

变量名	类 型	静态	数组	备 注
局_枚举	L_文件枚举
局_当前路径	文本型
局_路径名称	文本型
局_路径类型	整数型
局_返回值	逻辑型

如果真 (是否为空 (处理只读属性))
处理只读属性 ＝ 真
局_当前路径 ＝ L_目录_添加末尾斜杠 (欲清空的目录名称)
如果真 (局_枚举.打开 (局_当前路径 ＋ “*”, 真))
局_返回值 ＝ 真
判断循环首 (局_枚举.取路径信息 (局_路径名称, 局_路径类型, , , , ) 或 局_返回值 ＝ 假)
如果 (局_路径类型 ＝ 2)
局_返回值 ＝ L_目录_清空 (局_当前路径 ＋ 局_路径名称, 处理只读属性)
如果真 (L_文件_删除 (局_当前路径 ＋ 局_路径名称, 处理只读属性) ＝ 假)
局_返回值 ＝ 假


判断循环尾 ()
返回 (局_返回值)

.版本 2<br /> <br /> .子程序 L_目录_清空, 逻辑型, 公开, 清空指定目录下的所有文件，但不删除里面的目录<br /> .参数 欲清空的目录名称, 文本型, , 目录末尾有无"\"均可；如果目录中存在子目录，里面的文件将被一并删除，因此使用本命令请千万慎重<br /> .参数 处理只读属性, 逻辑型, 可空, 默认为真，会自动处理文件目录的"只读"属性<br /> .局部变量 局_枚举, L_文件枚举<br /> .局部变量 局_当前路径, 文本型<br /> .局部变量 局_路径名称, 文本型<br /> .局部变量 局_路径类型, 整数型<br /> .局部变量 局_返回值, 逻辑型<br /> <br /> .如果真 (是否为空 (处理只读属性))<br />     处理只读属性 ＝ 真<br /> .如果真结束<br /> 局_当前路径 ＝ L_目录_添加末尾斜杠 (欲清空的目录名称)<br /> .如果真 (局_枚举.打开 (局_当前路径 ＋ “*”, 真))<br />     局_返回值 ＝ 真<br />     .判断循环首 (局_枚举.取路径信息 (局_路径名称, 局_路径类型, , , , ) 或 局_返回值 ＝ 假)<br />         .如果 (局_路径类型 ＝ 2)<br />             局_返回值 ＝ L_目录_清空 (局_当前路径 ＋ 局_路径名称, 处理只读属性)<br />         .否则<br />             .如果真 (L_文件_删除 (局_当前路径 ＋ 局_路径名称, 处理只读属性) ＝ 假)<br />                 局_返回值 ＝ 假<br />             .如果真结束<br /> <br />         .如果结束<br /> <br />     .判断循环尾 ()<br /> .如果真结束<br /> 返回 (局_返回值)

danshiyuan

凌哥 发表于 2024-12-15 04:03
[e=1].版本 2

.子程序 L_目录_清空, 逻辑型, 公开, 清空指定目录下的所有文件，但不删除里面的目录

这个代码编译不了，能帮忙重新写一下么？

凌哥

danshiyuan 发表于 2025-4-19 22:04
这个代码编译不了，能帮忙重新写一下么？

给你看思路的，自己按这样的方式实现就好了，我模块收费的