Помогите пожалуйста написать скрипт удаления файлов старше 6 дней, в разных папках на разных дисках. К примеру в папках backup на E: F: G:
Я руководствовался другим скриптом написаном на форуме, но я не пойму как сделать несколько переменных path:
Я руководствовался другим скриптом написаном на форуме, но я не пойму как сделать несколько переменных path:
Код:
#include <Date.au3>
$path = "G:\backup";папка для очистки
$delta = "6" ; кол-во дней, старше которых удаляем
$aReturn = _FileSearch($path, '*.*')
For $i = 1 To UBound($aReturn) - 1
$aTime = FileGetTime($aReturn[$i])
If _DateDiff('D', $aTime[0] & '/' & $aTime[1] & '/' & $aTime[2], _NowCalc()) > $delta Then
FileDelete($aReturn[$i])
EndIf
Next
Func _FileSearch($sPath, $sFileMask)
Local $sOut = StringToBinary("0" & @CRLF, 2), $aOut
Local $hDir = Run(@ComSpec & ' /U/C DIR "' & $sPath & '\' & $sFileMask & '" /S/B/A-D', @SystemDir, @SW_HIDE, 6)
While 1
$sOut &= StdoutRead($hDir, False, True)
If @error Then ExitLoop
WEnd
$aOut = StringRegExp(BinaryToString($sOut, 2), "[^\r\n]+", 3)
If @error Then Return SetError(1)
$aOut[0] = UBound($aOut) - 1
Return $aOut
EndFunc ;==>_FileSearch