分享个删除回收站里超过N天的文件例子

Ｍｏメ末

下面是删除回收站里时间超过90天的文件例子, 配合开机自动执行, 效果更佳.模块使用: 精易模块v11.0.5
程序类型: Windows控制台程序

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
cmd	控制台对象
集_文件号	整数型

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

开始执行 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
开始执行

变量名	类 型	静态	数组	备 注
已删除数量	整数型
日志文件路径	文本型

日志文件路径 ＝ 取运行目录 () ＋ “\logs.log”
如果真 (文件是否存在 (日志文件路径) ＝ 假)
文件_创建 (日志文件路径, 0)
集_文件号 ＝ 打开文件 (日志文件路径, , )
移到文件尾 (集_文件号)
已删除数量 ＝ 删除回收站过期文件 (90)
控制台输出 (“共删除文件数: ” ＋ 到文本 (已删除数量))
关闭文件 (集_文件号)

子程序名	返回值类型	公开	备 注
控制台输出
参数名	类 型	参考	可空	数组	备 注
数据	文本型

cmd.输出 (, , 假, #控制台颜色 .黄色, #控制台颜色 .黑色, 数据 ＋ #换行符 )
调试输出 (数据)
写出文本 (集_文件号, 数据 ＋ #换行符 )

子程序名	返回值类型	公开	备 注
取当前系统用户SID	文本型

变量名	类 型	静态	数组	备 注
结果	文本型
位置1	整数型

结果 ＝ 系统_取DOS执行结果 (“whoami /user /fo list”, )
位置1 ＝ 寻找文本 (结果, “SID”, , 假)
如果真 (位置1 ≠ -1)
结果 ＝ 取文本右边 (结果, 取文本长度 (结果) － 位置1 － 4)
结果 ＝ 子文本替换 (结果, #换行符, “”, , , 真)
结果 ＝ 删首尾空 (结果)
返回 (结果)
返回 (“”)

子程序名	返回值类型	公开	备 注
删除回收站过期文件	整数型		返回已删除的文件数量
参数名	类 型	参考	可空	数组	备 注
有效天数	整数型				超过有效天数的文件会在回收站里面被删除

变量名	类 型	静态	数组	备 注
文件数量	整数型
回收站文件数组	精易_回收站中的文件信息		0
i	整数型
文件信息	精易_回收站中的文件信息
文件路径	文本型
SID	文本型
已删除数量	整数型
isOk	逻辑型

控制台输出 (“----------------- ” ＋ 时间_格式化 (取现行时间 (), “yyyy/MM/dd ”, “HH:mm:ss”, 真, ) ＋ “ 执行任务: 删除回收站里时间超过” ＋ 到文本 (有效天数) ＋ “天的文件 -----------------”)
SID ＝ 取当前系统用户SID ()
控制台输出 (“当前用户SID: ” ＋ SID)
如果真 (SID ＝ “”)
控制台输出 (“获取不到当前用户SID”)
返回 (0)

文件数量 ＝ 系统_遍历取回收站中的文件 (回收站文件数组)
控制台输出 (“回收站文件数量: ” ＋ 到文本 (文件数量))
如果真 (文件数量 ＞ 0)
计次循环首 (取数组成员数 (回收站文件数组), i)
文件信息 ＝ 回收站文件数组 [i]
' 调试输出 (文件信息.当前的路径, 文件信息.原路径, 文件信息.删除时间)
如果真 (取时间间隔 (取现行时间 (), 文件信息.删除时间, #日 ) ＞ 有效天数)
控制台输出 (到文本 (已删除数量) ＋ “ 删除文件-> 原路径: ” ＋ 文件信息.原路径 ＋ “ 删除时间: ” ＋ 时间_格式化 (文件信息.删除时间, “yyyy/MM/dd ”, “HH:mm:ss”, 真, ))
文件路径 ＝ 文件_取路径盘符 (文件信息.原路径) ＋ “\$Recycle.Bin\” ＋ SID ＋ “\” ＋ 文件_取文件名 (文件信息.当前的路径, 真)
' 调试输出 (“文件是否存在”, 文件路径, 文件是否存在 (文件路径))
文件_移除属性 (文件路径, #只读文件 )
isOk ＝ 假
如果 (文件_是否为目录 (文件路径))
isOk ＝ 目录_删除目录 (文件路径)
isOk ＝ 文件_删除 (文件路径)

如果真 (isOk)
已删除数量 ＝ 已删除数量 ＋ 1


计次循环尾 ()

返回 (已删除数量)

i支持库列表	支持库注释
console	控制台操作支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 console<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> .程序集变量 cmd, 控制台对象<br /> .程序集变量 集_文件号, 整数型<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 开始执行 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 开始执行<br /> .局部变量 已删除数量, 整数型<br /> .局部变量 日志文件路径, 文本型<br /> <br /> 日志文件路径 ＝ 取运行目录 () ＋ “\logs.log”<br /> .如果真 (文件是否存在 (日志文件路径) ＝ 假)<br />     文件_创建 (日志文件路径, 0)<br /> .如果真结束<br /> 集_文件号 ＝ 打开文件 (日志文件路径, , )<br /> 移到文件尾 (集_文件号)<br /> 已删除数量 ＝ 删除回收站过期文件 (90)<br /> 控制台输出 (“共删除文件数: ” ＋ 到文本 (已删除数量))<br /> 关闭文件 (集_文件号)<br /> <br /> .子程序 控制台输出<br /> .参数 数据, 文本型<br /> <br /> cmd.输出 (, , 假, #控制台颜色.黄色, #控制台颜色.黑色, 数据 ＋ #换行符)<br /> 调试输出 (数据)<br /> 写出文本 (集_文件号, 数据 ＋ #换行符)<br /> <br /> .子程序 取当前系统用户SID, 文本型<br /> .局部变量 结果, 文本型<br /> .局部变量 位置1, 整数型<br /> <br /> 结果 ＝ 系统_取DOS执行结果 (“whoami /user /fo list”, )<br /> 位置1 ＝ 寻找文本 (结果, “SID”, , 假)<br /> .如果真 (位置1 ≠ -1)<br />     结果 ＝ 取文本右边 (结果, 取文本长度 (结果) － 位置1 － 4)<br />     结果 ＝ 子文本替换 (结果, #换行符, “”, , , 真)<br />     结果 ＝ 删首尾空 (结果)<br />     返回 (结果)<br /> .如果真结束<br /> 返回 (“”)<br /> <br /> .子程序 删除回收站过期文件, 整数型, , 返回已删除的文件数量<br /> .参数 有效天数, 整数型, , 超过有效天数的文件会在回收站里面被删除<br /> .局部变量 文件数量, 整数型<br /> .局部变量 回收站文件数组, 精易_回收站中的文件信息, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文件信息, 精易_回收站中的文件信息<br /> .局部变量 文件路径, 文本型<br /> .局部变量 SID, 文本型<br /> .局部变量 已删除数量, 整数型<br /> .局部变量 isOk, 逻辑型<br /> <br /> 控制台输出 (“----------------- ” ＋ 时间_格式化 (取现行时间 (), “yyyy/MM/dd ”, “HH:mm:ss”, 真, ) ＋ “ 执行任务: 删除回收站里时间超过” ＋ 到文本 (有效天数) ＋ “天的文件 -----------------”)<br /> SID ＝ 取当前系统用户SID ()<br /> 控制台输出 (“当前用户SID: ” ＋ SID)<br /> .如果真 (SID ＝ “”)<br />     控制台输出 (“获取不到当前用户SID”)<br />     返回 (0)<br /> .如果真结束<br /> <br /> 文件数量 ＝ 系统_遍历取回收站中的文件 (回收站文件数组)<br /> 控制台输出 (“回收站文件数量: ” ＋ 到文本 (文件数量))<br /> .如果真 (文件数量 ＞ 0)<br />     .计次循环首 (取数组成员数 (回收站文件数组), i)<br />         文件信息 ＝ 回收站文件数组 <i><br />         ' 调试输出 (文件信息.当前的路径, 文件信息.原路径, 文件信息.删除时间)<br />         .如果真 (取时间间隔 (取现行时间 (), 文件信息.删除时间, #日) ＞ 有效天数)<br /> <br />             控制台输出 (到文本 (已删除数量) ＋ “ 删除文件-> 原路径: ” ＋ 文件信息.原路径 ＋ “ 删除时间: ” ＋ 时间_格式化 (文件信息.删除时间, “yyyy/MM/dd ”, “HH:mm:ss”, 真, ))<br />             文件路径 ＝ 文件_取路径盘符 (文件信息.原路径) ＋ “\$Recycle.Bin\” ＋ SID ＋ “\” ＋ 文件_取文件名 (文件信息.当前的路径, 真)<br />             ' 调试输出 (“文件是否存在”, 文件路径, 文件是否存在 (文件路径))<br />             文件_移除属性 (文件路径, #只读文件)<br />             isOk ＝ 假<br />             .如果 (文件_是否为目录 (文件路径))<br />                 isOk ＝ 目录_删除目录 (文件路径)<br />             .否则<br />                 isOk ＝ 文件_删除 (文件路径)<br />             .如果结束<br /> <br />             .如果真 (isOk)<br />                 已删除数量 ＝ 已删除数量 ＋ 1<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> 返回 (已删除数量)

暴走的小肥羊

6666666666666666666666

窥伺

66666实在是大佬

pipicool

学习一下

nameliuhaobo

good6666666666

renjianhong48we

感谢分享

一指温柔

感谢分享

nameliuhaobo

good6666666666

bianyuan456

回复本帖可获得 1 枚 精币奖励! 每人限 1 次

要强不要秃

666666666666666666