Sign in to follow this  
Followers 0
Ello

Search Files that are 5 years old

2 posts in this topic

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

#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

Share this post


Link to post
Share on other sites



Hi,

You can use _DateDiff() function:

#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_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: 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 Program

AutoIt_Icon_small.pngUDFs: 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
 
AutoIt_Icon_small.pngExamples: 
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 AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0