删除指定目录下开头的文件

小旭旭

各位大佬，我的需求是删除C:\Program Files\Common Files\VST3底下所有WaveShell开头的文件包括子文件夹有可以帮助一下的吗

晨风电脑

这是源码

是可可吖

目录_强力清空（）

补充内容 (2025-3-29 00:30):
目录_清空（）

aipca

1、文件_枚举（） 把文件夹和子文件夹所有文件名罗列出来；
2、罗列出来的数组进行循环  寻找文本（）
3、将符号条件的数组名路径 进行文件_删除（）
就是这么个思路 太晚呼呼了 自己手搓一下吧。

eyyhs

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

鸡你太美删除 (“C:\Users\Admin\Desktop\新建文件夹”)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
鸡你太美删除
参数名	类 型	参考	可空	数组	备 注
目录	文本型

变量名	类 型	静态	数组	备 注
i	整数型
局_关键词	文本型
局_子目录	文本型		0
局_子文件	文本型		0

局_关键词 ＝ “WaveShell”
如果真 (目录_枚举子目录 (目录, 局_子目录, , ) ＞ 0)
计次循环首 (取数组成员数 (局_子目录), i)
如果真 (文本_寻找文本 (局_子目录 [i], 局_关键词, 0, ) ＞ 0)
删除目录 (目录 ＋ “\” ＋ 局_关键词 [i])
' 调试输出 (局_子目录 [i], 文本_寻找文本 (局_子目录 [i], 局_关键词, 0, ))

计次循环尾 ()
如果真 (文件_枚举 (目录, “*.*”, 局_子文件, , , ) ＞ 0)
计次循环首 (取数组成员数 (局_子文件), i)
如果真 (文本_寻找文本 (局_子文件 [i], 局_关键词, 0, ) ＞ 0)
删除文件 (目录 ＋ “\” ＋ 局_关键词 [i])

计次循环尾 ()

.版本 2<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 鸡你太美删除 (“C:\Users\Admin\Desktop\新建文件夹”)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 鸡你太美删除<br /> .参数 目录, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 局_关键词, 文本型<br /> .局部变量 局_子目录, 文本型, , "0"<br /> .局部变量 局_子文件, 文本型, , "0"<br /> <br /> 局_关键词 ＝ “WaveShell”<br /> .如果真 (目录_枚举子目录 (目录, 局_子目录, , ) ＞ 0)<br />     .计次循环首 (取数组成员数 (局_子目录), i)<br />         .如果真 (文本_寻找文本 (局_子目录 <i>, 局_关键词, 0, ) ＞ 0)<br />             删除目录 (目录 ＋ “\” ＋ 局_关键词 <i>)<br />             ' 调试输出 (局_子目录 <i>, 文本_寻找文本 (局_子目录 <i>, 局_关键词, 0, ))<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> .如果真 (文件_枚举 (目录, “*.*”, 局_子文件, , , ) ＞ 0)<br />     .计次循环首 (取数组成员数 (局_子文件), i)<br />         .如果真 (文本_寻找文本 (局_子文件 <i>, 局_关键词, 0, ) ＞ 0)<br />             删除文件 (目录 ＋ “\” ＋ 局_关键词 <i>)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束

调用模块：精益模块

小旭旭

eyyhs 发表于 2025-3-29 00:39
[e=0].版本 2

.程序集 程序集1

大佬 报错啦   错误(11): 逗号（参数分隔符）处于错误位置。

Ruang

系统_是否为管理员()
C盘目录，还要cha询是否为管理员运行程序，如果不是管理员运行程序，可能会导致删除失败

aipca

  

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

变量名	类 型	静态	数组	备 注
路径	文本型
关键字	文本型

路径 ＝ “C:\test”
关键字 ＝ “.t”
删除_指定文件 (路径, 关键字, 真)

子程序名	返回值类型	公开	备 注
删除_指定文件
参数名	类 型	参考	可空	数组	备 注
目录路径	文本型
关键字	文本型
包含子目录	逻辑型

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

文件_枚举 (目录路径, “*.*”, 文件名, 真, , 包含子目录)
计次循环首 (取数组成员数 (文件名), i)
如果真 (寻找文本 (文件_取文件名 (文件名 [i], 真), 关键字, , 假) ≠ -1)
' 调试输出 (文件名 [i])
文件_删除 (文件名 [i])

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 路径, 文本型<br /> .局部变量 关键字, 文本型<br /> <br /> 路径 ＝ “C:\test”<br /> 关键字 ＝ “.t”<br /> 删除_指定文件 (路径, 关键字, 真)<br /> <br /> <br /> .子程序 删除_指定文件<br /> .参数 目录路径, 文本型<br /> .参数 关键字, 文本型<br /> .参数 包含子目录, 逻辑型<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 文件_枚举 (目录路径, “*.*”, 文件名, 真, , 包含子目录)<br /> .计次循环首 (取数组成员数 (文件名), i)<br />     .如果真 (寻找文本 (文件_取文件名 (文件名 <i>, 真), 关键字, , 假) ≠ -1)<br />         ' 调试输出 (文件名 <i>)<br />         文件_删除 (文件名 <i>)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

Ruang

demo.e (952.04 KB, 下载次数: 0)

前天 10:32 上传

点击文件名下载附件


注意：调试中注意删除文件后就找不回来了


补充内容 (2025-3-29 10:33):
可删除文件及文件夹

补充内容 (2025-3-29 10:40):
注意删除C盘目录下，要以管理员运行程序，或提权或其他方式

晨风电脑

.版本 2

.子程序 _按钮1_被单击
.局部变量 删除文件命令, 文本型
.局部变量 删除文件夹命令, 文本型
.局部变量 执行结果1, 整数型
.局部变量 执行结果2, 整数型
.局部变量 目录, 文本型
.局部变量 文件名, 文本型


文件名 ＝ “WaveShell*”
目录 ＝ “C:\Program Files\Common Files\VST3”
' 构建删除文件的CMD命令
删除文件命令 ＝ “for /r ” ＋ #引号 ＋ 目录 ＋ #引号 ＋ “ %%i in (” ＋ 文件名 ＋ “) do @del ” ＋ #引号 ＋ “%%i” ＋ #引号
' 构建删除文件夹的CMD命令
删除文件夹命令 ＝ “for /d /r ” ＋ #引号 ＋ 目录 ＋ #引号 ＋ “ %%i in (” ＋ 文件名 ＋ “) do @rd /s /q ” ＋ #引号 ＋ “%%i” ＋ #引号

写到文件 (取运行目录 () ＋ “\1.bat”, 到字节集 (删除文件命令 ＋ #换行符 ＋ 删除文件夹命令))
运行 (取运行目录 () ＋ “\1.bat”, 假, )

试试这个吧 不用任何模块