Ello Posted December 3, 2007 Share Posted December 3, 2007 Hi - I was wondering if anyone could help me, I am looking to see if I can search and report any files that have not been accessed for 5 years, I have written (and copied!) the below application however I can't get the desired result. Could anyone point me in the right direction or tell me what I have done wrong Thanks is advance expandcollapse popup#include <Array.au3> #include <file.au3> #include <Date.au3> Dim $FolderName = "U:" Dim $FileCount = 0 Dim $temp, $date,$SetDate ScanFolder($FolderName) MsgBox(0,"Done","Folder Scan Complete. Scanned " & $FileCount & " Files") Func ScanFolder($SourceFolder) Local $Search Local $File Local $FileAttributes Local $FullFilePath $Search = FileFindFirstFile($SourceFolder & "\*.*") While 1 If $Search = -1 Then ExitLoop EndIf Dim $Y, $M, $D $sJulDate = _DateToDayValue (@YEAR, @MON, @MDAY) $sJulDate = _DayValueToDate ($sJulDate-1825, $Y, $M, $D) $SetDate = $D&"/"&$M&"/"&$Y $File = FileFindNextFile($Search) If @error Then ExitLoop $FullFilePath = $SourceFolder & "\" & $File $FileAttributes = FileGetTime($FullFilePath) $date = $FileAttributes[2] & "/" & $FileAttributes[1] & "/" & $FileAttributes[0] $FileAttributes2 = FileGetSize($FullFilePath) $temp = $FileAttributes2 /1024 /1024 If $date < $SetDate Then ScanFolder($FullFilePath) Else LogFile($FullFilePath) EndIf WEnd FileClose($Search) EndFunc Func LogFile($FileName) $Size = Round($temp) FileWriteLine("c:\stevestewart.log" ,$FileName&" ("&$size&"MB) Date last mod:" & $date) $FileCount += 1 ToolTip($FileName,0,0) EndFunc Link to comment Share on other sites More sharing options...
MrCreatoR Posted December 3, 2007 Share Posted December 3, 2007 Hi, You can use _DateDiff() function: expandcollapse popup#include <Array.au3> #include <Date.au3> Dim $FolderName = "U:" Dim $FileCount = 0 Dim $temp, $date, $SetDate Dim $DateDiffYears = 5 ScanFolder($FolderName) MsgBox(0,"Done","Folder Scan Complete. Scanned " & $FileCount & " Files") Func ScanFolder($SourceFolder) Local $Search Local $File Local $FileAttributes Local $FullFilePath $Search = FileFindFirstFile($SourceFolder & "\*.*") While 1 If $Search = -1 Then ExitLoop EndIf $SetDate = @YEAR & "/" & @MON & "/" & @MDAY $File = FileFindNextFile($Search) If @error Then ExitLoop $FullFilePath = $SourceFolder & "\" & $File $FileAttributes = FileGetTime($FullFilePath) $Date = $FileAttributes[2] & "/" & $FileAttributes[1] & "/" & $FileAttributes[0] $FileAttributes2 = FileGetSize($FullFilePath) $temp = $FileAttributes2 /1024 /1024 If _DateDiff("Y", $date, $SetDate) < $DateDiffYears Then ScanFolder($FullFilePath) Else LogFile($FullFilePath) EndIf WEnd FileClose($Search) EndFunc Func LogFile($FileName) $Size = Round($temp) FileWriteLine("c:\stevestewart.log" ,$FileName&" ("&$size&"MB) Date last mod:" & $date) $FileCount += 1 ToolTip($FileName,0,0) EndFunc Spoiler Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1 AutoIt Russian Community My Work... Spoiler Projects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize ProgramUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF Examples: ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating ) * === My topics === * ================================================== ================================================== AutoIt is simple, subtle, elegant. © AutoIt Team Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now