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

zzz77f

求购个枚举目录，分割然后，删除文件的列子

凌哥

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

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

danshiyuan

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

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

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

凌哥

  

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

云少i

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

尛龍科技

  

变量名	类 型	静态	数组	备 注
文件数组	文本型		0
i	整数型
临时目录	文本型

文件_枚举 (“C:\Users\Administrator\Desktop\枚举例子\”, “*.*”, 文件数组, 真, , 真)
调试输出 (文件数组)
计次循环首 (取数组成员数 (文件数组), i)
临时目录 ＝ 文件数组 [i]
临时目录 ＝ 文件_取目录 (临时目录)
删除文件 (文件数组 [i])
删除目录 (临时目录)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 文件数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 临时目录, 文本型<br /> <br /> 文件_枚举 (“C:\Users\Administrator\Desktop\枚举例子\”, “*.*”, 文件数组, 真, , 真)<br /> 调试输出 (文件数组)<br /> .计次循环首 (取数组成员数 (文件数组), i)<br />     临时目录 ＝ 文件数组 <i><br />     临时目录 ＝ 文件_取目录 (临时目录)<br />     删除文件 (文件数组 <i>)<br />     删除目录 (临时目录)<br /> .计次循环尾 ()

这个代码可以完成你的全部需求，且不会删除目录本身

真IKUN

整个目录文件都不要了，直接删除目录
然后创建目录就行了
这样就清空了，比数组操作快
你是不是想删除指定类型的文件？所以一直喊着分割？

LEOONL

zzz77f 发表于 2024-12-14 18:47
不可以。。。你试试就知道了，删除文件的 是要文本型，你看看那个模块注释~~ ...

你是不是数组是什么都不知道?

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文件数组	文本型		0
n	整数型

文件_枚举 (“C:\”, “*.*”, 文件数组, 真)
计次循环首 (取数组成员数 (文件数组), n)
删除文件 (文件数组 [n])
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件数组, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> <br /> 文件_枚举 (“C:\”, “*.*”, 文件数组, 真)<br /> .计次循环首 (取数组成员数 (文件数组), n)<br />     删除文件 (文件数组 [n])<br /> .计次循环尾 ()

zzz77f

LEOONL 发表于 2024-12-14 18:34
都已经是数组了还分割啥,要操作什么用这个数组就可以了啊

不可以。。。你试试就知道了，删除文件的 是要文本型，你看看那个模块注释~~

梦幻1096

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
a	文本型
w	文本型

w ＝ “D:\”
a ＝ 寻找文件 (w ＋ “*.*”, )
判断循环首 (a ≠ “”)
删除文件 (w ＋ a)
a ＝ 寻找文件 (w ＋ “*.*”, )
判断循环尾 ()

.版本 2<br /> <br /> .子程序 子程序1<br /> .局部变量 a, 文本型<br /> .局部变量 w, 文本型<br /> <br /> w ＝ “D:\”<br /> a ＝ 寻找文件 (w ＋ “*.*”, )<br /> .判断循环首 (a ≠ “”)<br />     删除文件 (w ＋ a)<br />     a ＝ 寻找文件 (w ＋ “*.*”, )<br /> .判断循环尾 ()

LEOONL

zzz77f 发表于 2024-12-14 18:32
要，分割，全部数组不行，。

都已经是数组了还分割啥,要操作什么用这个数组就可以了啊