| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 程序集1 | |||
| 变量名 | 类 型 | 数组 | 备 注 |
| cmd | 控制台对象 | ||
| 集_文件号 | 整数型 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _启动子程序 | 整数型 | 本子程序在程序启动后最先执行 | |||
返回 (0) ' 可以根据您的需要返回任意数值
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 开始执行 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 已删除数量 | 整数型 | |||||
| 日志文件路径 | 文本型 | |||||
如果真 (文件是否存在 (日志文件路径) ＝ 假)
文件_创建 (日志文件路径, 0)集_文件号 ＝ 打开文件 (日志文件路径, , )
移到文件尾 (集_文件号)
已删除数量 ＝ 删除回收站过期文件 (90)
控制台输出 (“共删除文件数: ” ＋ 到文本 (已删除数量))
关闭文件 (集_文件号)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 控制台输出 | |||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 数据 | 文本型 | ||||||
调试输出 (数据)
写出文本 (集_文件号, 数据 ＋ #换行符 )
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 取当前系统用户SID | 文本型 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 结果 | 文本型 | |||||
| 位置1 | 整数型 | |||||
位置1 ＝ 寻找文本 (结果, “SID”, , 假)
如果真 (位置1 ≠ -1)结果 ＝ 取文本右边 (结果, 取文本长度 (结果) － 位置1 － 4)结果 ＝ 子文本替换 (结果, #换行符, “”, , , 真)结果 ＝ 删首尾空 (结果)返回 (结果)返回 (“”)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 删除回收站过期文件 | 整数型 | 返回已删除的文件数量 | |||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 有效天数 | 整数型 | 超过有效天数的文件会在回收站里面被删除 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 文件数量 | 整数型 | |||||
| 回收站文件数组 | 精易_回收站中的文件信息 | 0 | ||||
| i | 整数型 | |||||
| 文件信息 | 精易_回收站中的文件信息 | |||||
| 文件路径 | 文本型 | |||||
| SID | 文本型 | |||||
| 已删除数量 | 整数型 | |||||
| isOk | 逻辑型 | |||||
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 | 特殊功能支持库 |
