• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(au3)源码-循环清除目录下支持指定文件、类型、通配符

AutoIT3 奇跡の海 2年前 (2017-11-22) 730次浏览 已收录 0个评论 扫描二维码

代码简介

AutoIt3(au3)源码-循环清除目录下支持指定文件、类型、通配符
设定时间循环清除某目录下指定文件、文件类型、支持通配符。需要生成配置文件时首次执行删除延时3秒,确保配置文件存在!如需退出程序请直接结束任务。

AU3源码

#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=自动生成配置文件CTemp.ini 确保运行目录是否有写入权限!
#AutoIt3Wrapper_Res_Description=时间循环清目录下指定文件 类型 支持通配符
#AutoIt3Wrapper_Res_Fileversion=1.0.0.5
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=清理临时文件工具
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <Process.au3>
Dim $filePath
Dim $file
Dim $search
Dim $sleep
Dim $inifile
; Check if the inifile was successful
$inifile = FileFindFirstFile(@scriptdir & "\CTemp.ini")
If ($inifile = -1) Then
IniWrite(@scriptdir & "\CTemp.ini","配置","说明","设定时间循环清除某目录下指定文件、文件类型、支持通配符。需要生成配置文件时首次执行删除延时3秒,确保配置文件存在!如需退出程序请直接结束任务。")
IniWrite(@scriptdir & "\CTemp.ini","配置","设定文件目录","如:C:\Documents and Settings\Administrator\Local Settings\Temp\")
IniWrite(@scriptdir & "\CTemp.ini","配置","FilePath","C:\Documents and Settings\Administrator\Local Settings\Temp\")
IniWrite(@scriptdir & "\CTemp.ini","配置","设定文件名称","需要名称+扩展名。如:Temp.txt 支持通配符,如:*.tmp 或 wwm.* 或 wwm*.tmp 或 wwm.*mp")
IniWrite(@scriptdir & "\CTemp.ini","配置","File","wwm*.tmp")
IniWrite(@scriptdir & "\CTemp.ini","配置","设定循环时间","单位:毫秒 如:1000代表1秒。")
IniWrite(@scriptdir & "\CTemp.ini","配置","Sleep","600000")
Sleep(3000)
EndIf
FileClose($inifile)
; Check if the inifile was successful
$inifile = FileFindFirstFile(@scriptdir & "\CTemp.ini")
If ($inifile = -1) Then
MsgBox(0,"提示信息………………系统临时文件循环清除工具","无法生成INI配置文件,请确保运行目录是否有写入权限!")
Exit
EndIf
FileClose($inifile) 
$filePath = iniread(@scriptdir & "\CTemp.ini","配置","FilePath","")
$file = iniread(@scriptdir & "\CTemp.ini","配置","File","")
$sleep = iniread(@scriptdir & "\CTemp.ini","配置","Sleep","")
If ($sleep <= 9999) Then
MsgBox(0,"提示信息………………系统临时文件循环清除工具","为保证CPU占用率为零,循环时间必须=>10000毫秒!")
Exit
EndIf
While 1
; Check if the search was successful
$search = FileFindFirstFile($filePath & "\" & $file)
If Not ($search = -1) Then
FileDelete($filePath & "\" & $file)
EndIf
FileClose($search)
Sleep($Sleep)
Wend

版权声明:本站所有文章和资源使用CC BY-NC-SA 4.0协议授权发布 , 转载应当以相同方式注明文章来自“SeaOMC.COM->AutoIt3(au3)源码-循环清除目录下支持指定文件、类型、通配符!在下边可以分享本文哦!
喜欢 (0)
[]
分享 (0)
奇跡の海
关于作者:
一个WordPress菜鸟!
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址