将文件夹及子文件内所有文件删除，完整代码

danshiyuan

求：将文件夹及子文件夹内所有文件删除，文件为只读文件，桌面通过手动操作可以直接删除，但用易语言写的代码却删不掉
注：提供的压缩包为测试用的，里面文件都是只读，若文件传输过程发生改变了，请改成只读
注：求完整代码

Ruang

  

子程序名	返回值类型	公开	备 注
功能_删除只读文件			删除文件下的只读DOCX文件
参数名	类 型	参考	可空	数组	备 注
路径	文本型

变量名	类 型	静态	数组	备 注
文件	文本型		0
i	整数型
属性值	整数型
结果	整数型

文件_枚举 (路径, “*.docx”, 文件, 真, , 真)
计次循环首 (取数组成员数 (文件), i)
属性值 ＝ 文件_取属性 (文件 [i])
如果真 (属性值 ＝ 1)
结果 ＝ 文件_删除 (文件 [i])
如果 (结果 ＝ 真)
调试输出 (“删除成功：” ＋ 文件 [i])
调试输出 (“删除失败：” ＋ 文件 [i])


计次循环尾 ()

子程序名	返回值类型	公开	备 注
功能_删除指定文件			删除文件下的DOCX文件
参数名	类 型	参考	可空	数组	备 注
路径	文本型

变量名	类 型	静态	数组	备 注
文件	文本型		0
i	整数型
属性值	整数型
结果	整数型

文件_枚举 (路径, “*.docx”, 文件, 真, , 真)
计次循环首 (取数组成员数 (文件), i)
结果 ＝ 文件_删除 (文件 [i])
如果 (结果 ＝ 真)
调试输出 (“删除成功：” ＋ 文件 [i])
调试输出 (“删除失败：” ＋ 文件 [i])

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 功能_删除只读文件, , , 删除文件下的只读DOCX文件<br /> .参数 路径, 文本型<br /> .局部变量 文件, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 属性值, 整数型<br /> .局部变量 结果, 整数型<br /> <br /> 文件_枚举 (路径, “*.docx”, 文件, 真, , 真)<br /> .计次循环首 (取数组成员数 (文件), i)<br />     属性值 ＝ 文件_取属性 (文件 <i>)<br />     .如果真 (属性值 ＝ 1)<br />         结果 ＝ 文件_删除 (文件 <i>)<br />         .如果 (结果 ＝ 真)<br />             调试输出 (“删除成功：” ＋ 文件 <i>)<br />         .否则<br />             调试输出 (“删除失败：” ＋ 文件 <i>)<br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 功能_删除指定文件, , , 删除文件下的DOCX文件<br /> .参数 路径, 文本型<br /> .局部变量 文件, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 属性值, 整数型<br /> .局部变量 结果, 整数型<br /> <br /> 文件_枚举 (路径, “*.docx”, 文件, 真, , 真)<br /> .计次循环首 (取数组成员数 (文件), i)<br />     结果 ＝ 文件_删除 (文件 <i>)<br />     .如果 (结果 ＝ 真)<br />         调试输出 (“删除成功：” ＋ 文件 <i>)<br />     .否则<br />         调试输出 (“删除失败：” ＋ 文件 <i>)<br />     .如果结束<br /> <br /> .计次循环尾 ()

补充内容 (2025-4-20 01:05):
是这个意思么

tansiryaya

.版本 2

.程序集 窗口程序集_启动窗口

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

置文件属性 (“D:\Desktop\测试删除\测试文本.docx”, -1)
删除文件 (“D:\Desktop\测试删除\测试文本.docx”)

注：枚举之类的就自己写咯

Ruang

[工具]扫描文件后缀删除文件
https://bbs.125.la/forum.php?mod=viewthread&tid=14851113
(出处: 精易论坛)

可以拿去参考一下

danshiyuan

tansiryaya 发表于 2025-4-19 22:08
.版本 2

.程序集 窗口程序集_启动窗口

大哥能帮忙写一下么，我搞不定

danshiyuan

tansiryaya 发表于 2025-4-19 22:08
.版本 2

.程序集 窗口程序集_启动窗口

属性改了之后，直接删除整改文件夹就行，但不会枚举，及改属性

Ruang

把那个搜索文件变成“*。*“就好啦

tansiryaya

danshiyuan 发表于 2025-4-19 23:18
属性改了之后，直接删除整改文件夹就行，但不会枚举，及改属性

可以试试6楼的方法