File Delete - Old File

[mLipok]

How to delete files from specified but only this files which are older than for example 30 days

[guinness]

Plenty of Examples in the Forum to be honest

Modified this >Example.

#include <Date.au3> ; Required for _DateDiff()
#include <MsgBoxConstants.au3>
#include <MsgBoxConstants.au3>

; Check if the current script is older than 10 days.
If _IsFileOlder(@ScriptFullPath, 10) Then
    MsgBox($MB_SYSTEMMODAL, '', 'File is older than 10 days.')
Else
    MsgBox($MB_SYSTEMMODAL, '', 'File isn''t older than 10 days.')
EndIf

; Is a file older than a certain number of days.
Func _IsFileOlder($sFilePath, $iDays)
    Local Enum $FT_YEAR, $FT_MONTH, $FT_DAY, $FT_HOUR, $FT_MIN, $FT_SEC
    Local $aArray = FileGetTime($sFilePath, $FT_CREATED)
    Return ((@error > 0) ? Null : _DateDiff('D', $aArray[$FT_YEAR] & '/' & $aArray[$FT_MONTH] & '/' & $aArray[$FT_DAY] & ' ' & $aArray[$FT_HOUR] & ':' & $aArray[$FT_MIN] & ':' & $aArray[$FT_SEC], @YEAR & '/' & @MON & '/' & @MDAY & ' ' & @HOUR & ':' & @MIN & ':' & @SEC) >= Int($iDays))
EndFunc   ;==>_IsFileOlder

Edited October 11, 2014 by guinness

[guinness]

Or another way...

#include <Date.au3> ; Required for _DateDiff()

; Check if the current script is older than 10 days.
If _IsFileOlder(@ScriptFullPath, 10) Then
    MsgBox(4096, '', 'File is older than 10 days.')
Else
    MsgBox(4096, '', 'File isn''t older than 10 days.')
EndIf

; Is a file older than a certain number of days.
Func _IsFileOlder($sFilePath, $iDays)
    Local $aArray = FileGetTime($sFilePath, 0)
    Return _DateDiff('D', $aArray[0] & '/' & $aArray[1] & '/' & $aArray[2] & ' ' & $aArray[3] & ':' & $aArray[4] & ':' & $aArray[5], @YEAR & '/' & @MON & '/' & @MDAY & ' ' & @HOUR & ':' & @MIN & ':' & @SEC) >= $iDays
EndFunc   ;==>_IsFileOlder

Edited September 30, 2012 by guinness