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

凌哥

  

子程序名	返回值类型	公开	备 注
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 /> 返回 (局_返回值)