Delete files older than 5 minutes

[JedCooper]

Hi:

First I apologize for creating another post on this topic but I have reviewed the forums and tried multiple snippets and ideas from others but cannot get this to work. I have a directory called 'Test' and what I need to do is check it to see if there is a file that is older than 5 minutes from the current time and if so, delete it. I can get the array to work and I can get the time of the files contained therein but I cannot loop through it. I appreciate any and all help! Thank you in advance

[#include <Date.au3>

#Include <File.au3>

#include <array.au3>

$files = _FileListToArray("C:\Test", "*.pdf", 2) ;create an array of files in the specified folder

$date = _NowCalc()

$newdate=_DateAdd("D",-5,$date) ;subtract 5 minutes

$formatdate=StringSplit($newdate,"/") ;removing the /

$newdate=$formatdate[1]&$formatdate[2]&$formatdate[3]&@HOUR&@MIN&@SEC

If IsArray($files) Then

For $i = 1 To UBound($files) - 1

$CreateTime = FileGetTime("C:\Test" & $files[$i], 1, 1)

If $CreateTime > $newdate Then

FileDelete($files[$i])

EndIf

Next

EndIf]

[guinness]

Have a look at this >>

Edit: This is for days only!

Edited July 11, 2011 by guinness

[hannes08]

Hi,

use

$newdate = _DateAdd("n",-5,$date)

for getting 5 minutes of. In your post you used "D" => subtracts days.

Then go ahead and remove all "/" , " " and ":" from the date to get this format:

YYYYMMDDHHMMSS

With this format you can evaluate if the file is newer.

[somdcomputerguy]

Here's another way to do it, Edited July 11, 2011 by somdcomputerguy

[somdcomputerguy]

Here's another way to do it:

#include <Date.au3>
#Include <File.au3>

$files = _FileListToArray("C:\Test", "*.pdf", 1) ;create an array of files in the specified folder
$date = _NowCalc()
If IsArray($files) Then
    For $i = 2 To $files[0]
        $CreateTime = FileGetTime("C:\Test\" & $files[$i], 1)
        $CreateTimeArray = $CreateTime[0] & "/" & $CreateTime[1] & "/" & $CreateTime[2] & " " & $CreateTime[3] & ":" & $CreateTime[4] & ":" & $CreateTime[5]
        If _DateDiff('n', $CreateTimeArray, $date) > 5 Then ConsoleWrite($files[$i] & " should be deleted!" & @LF) ;FileDelete($files[$i])
    Next
EndIf

[GEOSoft]

I don't know why everybody insists on #Including files when it is so simple to do it with native AutoIt calls. I never use a UDF unless I require at least 30% of the code in there.

$sFile = @ScriptFullPath
$iFileDate = Number(StringTrimRight(FileGetTime($sFile, 1, 1), 2))
$iNowDate = Number(@YEAR & @MON & @MDAY & @HOUR & @MIN)
$iDiff = $iNowDate - $iFileDate
;MsgBox(0, "File Time", $iFileDate & @CRLF & $iNowDate & @CRLF & @CRLF & $iDiff)
If $iDiff >= 5 Then
    MsgBox(0, "Result", "The file " & $sFile & " is older than 5 minutes.")
EndIf

[smartee]

Well Geo, not all of us have a wealth of experience from which to draw insightful examples like you

Most of us are, how should I put it, "Young in the business"

Very intuitive minimalistic example as always I like it.

[GEOSoft]

It really could be made simpler than that. I just prefer to keep things as simple as possible and that includes not using #Include until I have a situation where it makes no sense NOT to use it. I also often just copy the required functions from a UDF as opposed to including the whole UDF.

[Jos]

I don't know why everybody insists on #Including files when it is so simple to do it with native AutoIt calls. I never use a UDF unless I require at least 30% of the code in there.

$sFile = @ScriptFullPath
$iFileDate = Number(StringTrimRight(FileGetTime($sFile, 1, 1), 2))
$iNowDate = Number(@YEAR & @MON & @MDAY & @HOUR & @MIN)
$iDiff = $iNowDate - $iFileDate
;MsgBox(0, "File Time", $iFileDate & @CRLF & $iNowDate & @CRLF & @CRLF & $iDiff)
If $iDiff >= 5 Then
    MsgBox(0, "Result", "The file " & $sFile & " is older than 5 minutes.")
EndIf

George,

This is not a valid test when the minutes are around the full hour mark!

You have to convert the time to a decimal value for else it will not work all the time.

Jos

[smartee]

I also often just copy the required functions from a UDF as opposed to including the whole UDF.

Me too well not me really,

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/striponlyincludes
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

[GEOSoft]

George,

This is not a valid test when the minutes are around the full hour mark!

You have to convert the time to a decimal value for else it will not work all the time.

Jos

I don't see it but I'll take your word for it. Since it's returning the number of Date/Month/Day/Minute then only Seconds could throw it off a bit and I'm not using them.

NM, I see it now. That can be solved with a bit of math.

Edited July 11, 2011 by GEOSoft