在官网论坛看到的，还算简单、稍微修改一下也可以用在档案上 https://www.autoitscript.com/forum/topic/141837-script-to-remove-folders- older-than-x-days/?do=findComment&comment=998117 #include <Array.au3> #include <File.au3> #include <Date.au3> ; put the root in a variable $sRoot = "C:Test" ; Retrieve a list of all the folders in $sRoot, and store that list as an array in $aList Global $aList = _FileListToArray($sRoot, "*", 2) ; _FileListToArray("path" [, "Filter" [, Flag]]) ; Look at what _FileListToArray() puts into $aList ; You can delete the below line after seeing the output for the first time _ArrayDisplay($aList) ; This is a loop that runs from 1 to the number of items listed in the first element of the returned array For $i = 1 To $aList[0] ; For each folder, get the modified date/time and store its individual parts in array $aDate $aDate = FileGetTime($sRoot & $aList[$i], 0, 0) ; FileGetTime("filename" [, option [, format]]) ; Look at what FileGetTime() puts into $aDate ; You can delete the below line after seeing the output for the first time _ArrayDisplay($aDate) ; Build the properly formatted date string for _DateDiff()'s needs $sDate = $aDate[0] & "/" & $aDate[1] & "/" & $aDate[2] ;0 index stores the year, 1 index stores month, 2 index stores day ; Look at what we made into $sDate ; You can delete the below line after seeing the output for the first time msgbox(0,"Check Output", $sDate) ; Use _DateDiff() to see if the difference is greater than 3 days, and if it's true, then delete the folder and all its subfolders If _DateDiff("D", $sDate, _NowCalcDate()) > 3 Then DirRemove($sRoot & $aList[$i], 1) Next --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 60.250.204.229 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/EzHotKey/M.1475217101.A.D01.html