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

sn7039764

求大佬给个删除目录 但保留该目录下的多个指定扩展名文件 的源码  求源码


补充内容 (2025-3-18 11:56):
比如保留.exe .txt .sys等等  总之是多个 其它文件删除掉

是可可吖

目录删除文件例子.e (1 MB, 下载次数: 14)

2025-3-18 12:51 上传

点击文件名下载附件

好了，你拿去看看是不是你需要的



补充内容 (2025-3-18 12:53):
我用的命令是删除到回收站  怕误删   你不需要的话  就改成 删除文件（）就行了

青春已不再

先文件枚举-然后在删除无关的文件

aipca

  

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

变量名	类 型	静态	数组	备 注
路径	文本型
文件	文本型
i	整数型
排除后缀	文本型

路径 ＝ 取运行目录 () ＋ “\test”
排除后缀 ＝ “.jpg”
文件_枚举 (路径, “*.*”, 文件, 真, 假, 假)
计次循环首 (取数组成员数 (文件), i)
判断 (寻找文本 (文件 [i], 排除后缀, , 假) ＝ -1)
删除文件 (文件 [i])



计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 路径, 文本型<br /> .局部变量 文件, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 排除后缀, 文本型<br /> <br /> 路径 ＝ 取运行目录 () ＋ “\test”<br /> 排除后缀 ＝ “.jpg”<br /> 文件_枚举 (路径, “*.*”, 文件, 真, 假, 假)<br /> .计次循环首 (取数组成员数 (文件), i)<br />     .判断开始 (寻找文本 (文件 <i>, 排除后缀, , 假) ＝ -1)<br />         删除文件 (文件 <i>)<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()

是可可吖

将目录下的指定扩展名文件移动到别处，然后删除目录。不然你目录删除了，这些文件放哪？

sn7039764

aipca 发表于 2025-3-18 12:05
[e=1].版本 2

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

大佬 编辑提示 不能将“文本型”数据转换到“文本型 数组”数据  文件_枚举那里

sn7039764

是可可吖 发表于 2025-3-18 12:13
将目录下的指定扩展名文件移动到别处，然后删除目录。不然你目录删除了，这些文件放哪？ ...

不一定删除目录啊 我只是想把该目录下除了需要保留的扩展名文件 其它文件全删除了

是可可吖

sn7039764 发表于 2025-3-18 12:23
不一定删除目录啊 我只是想把该目录下除了需要保留的扩展名文件 其它文件全删除了 ...

那就很简单了，枚举文件之后，取后缀不是你要的删除就行了

sn7039764

是可可吖 发表于 2025-3-18 12:13
将目录下的指定扩展名文件移动到别处，然后删除目录。不然你目录删除了，这些文件放哪？ ...

大佬 加个0好用了 但是怎么写多个扩展名啊

是可可吖

sn7039764 发表于 2025-3-18 12:27
大佬 加个0好用了 但是怎么写多个扩展名啊

等会，我写个例子给你