法律20120119文

autoit 脚本简单易学

#include <Date.au3>

#include <File.au3>

$path = "C:\DATA" ;文件夹路径

$before = 90 ;几天前

;得到n天前年月日字符串

$str = _DateAdd( 'd', -1 * $before, _NowCalcDate())

$time = StringLeft($str, 4) & StringMid($str, 6, 2) & StringMid($str, 9)

;得到路径中的所有子文件夹名称，存入数组

$file = _FileListToArray($path, "*.rar", 1)

;循环遍历数组

For $i = 1 To $file[0]

If StringCompare(StringLeft($file[$i], 8), $time)<0 Then

FileDelete($path & "\" & $file[$i])

EndIf

Next

TrayTip("", "谢谢使用！", 5)

Sleep(3000)