删除目录 但保留该目录下的多个指定扩展名文件

b0y

  

窗口程序集名	保 留	保 留	备 注
(未填写程序集名)
变量名	类 型	数组	备 注
变量名	类 型	数组	备 注
保留扩展名	文本型	0

保留扩展名 ＝ { “.exe”, “.jpg”, “.png” }
文件_枚举1 (取运行目录 (), “*.*”, &枚举过程)

子程序名	返回值类型	公开	备 注
枚举过程
参数名	类 型	参考	可空	数组	备 注
目录	文本型
文件名	文本型

变量名	类 型	静态	数组	备 注
扩展名	文本型
a	整数型

扩展名 ＝ 文件_取扩展名 (文件名)
计次循环首 (取数组成员数 (保留扩展名), a)
如果真 (到小写 (保留扩展名) ＝ 到小写 (扩展名))
删除文件 (目录 ＋ “\” ＋ 文件名)
跳出循环 ()

计次循环尾 ()

.版本 2<br /> <br /> .程序集变量 保留扩展名, 文本型, , "0"<br /> <br /> <br /> 保留扩展名 ＝ { “.exe”, “.jpg”, “.png” }<br /> 文件_枚举1 (取运行目录 (), “*.*”, &枚举过程)<br /> <br /> <br /> .子程序 枚举过程<br /> .参数 目录, 文本型<br /> .参数 文件名, 文本型<br /> .局部变量 扩展名, 文本型<br /> .局部变量 a, 整数型<br /> <br /> 扩展名 ＝ 文件_取扩展名 (文件名)<br /> .计次循环首 (取数组成员数 (保留扩展名), a)<br />     .如果真 (到小写 (保留扩展名) ＝ 到小写 (扩展名))<br />         删除文件 (目录 ＋ “\” ＋ 文件名)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

sn7039764

b0y 发表于 2025-3-18 12:32
[e=0].版本 2

.程序集变量 保留扩展名, 文本型, , "0"

大佬 如果真 那里提示 不能将“文本型 数组”数据转换到“文本型”数据

samll88

  

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

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

文件_枚举 (“E:\文件夹”, “*.*”, 子目录, 真, , )
计次循环首 (取数组成员数 (子目录), i)
如果真 (寻找文本 (子目录 [i], “exe”, , 假) ＝ -1 且 寻找文本 (子目录 [i], “txt”, , 假) ＝ -1 且 寻找文本 (子目录 [i], “sys”, , 假) ＝ -1)
删除文件 (子目录 [i])

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮5_被单击<br /> .局部变量 子目录, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 文件_枚举 (“E:\文件夹”, “*.*”, 子目录, 真, , )<br /> .计次循环首 (取数组成员数 (子目录), i)<br />     .如果真 (寻找文本 (子目录 <i>, “exe”, , 假) ＝ -1 且 寻找文本 (子目录 <i>, “txt”, , 假) ＝ -1 且 寻找文本 (子目录 <i>, “sys”, , 假) ＝ -1)<br />         删除文件 (子目录 <i>)<br />     .如果真结束<br /> <br /> .计次循环尾 ()