senthil1986

Hi Friends, Subject:- Required below AUTOIT script need to modify *.att file should be deleted with asking user (operator) must done automatically condition:- run on back ground does'nt affect other application thank you ============================================================================ #include <Array.au3> #include <Date.au3> #include <File.au3> Local $Folder, $FileList, $FileType = '*.att', $ScavangeDate = 120 $Folder = FileSelectFolder('Choose The Diretory To Scavange For Old Files', '') If @error Then Exit $FileList = _FileListToArray($Folder, $FileType, 1) If @error Then Exit MsgBox(270352, 'Fatal Error', 'No "att" files in:' & @LF & $Folder) For $i = $FileList[0] To 1 Step -1 Local $FileDate = FileGetTime($Folder & '\' & $FileList[$i]) If IsArray($FileDate) Then Local $Date = $FileDate[0] & '/' & $FileDate[1] & '/' & $FileDate[2] & ' ' & $FileDate[3] & ':' & $FileDate[4] & ':' & $FileDate[5] If _DateDiff('D', $Date, _NowCalc()) >= $ScavangeDate Then ContinueLoop EndIf _ArrayDelete($FileList, $i) Next If UBound($FileList) - 1 = 0 Then Exit MsgBox(270352, 'Completed', 'No old "att" files in:' & @LF & $Folder) $FileList[0] = UBound($FileList) - 1 _ArrayDisplay($FileList, 'Old Files To Be Deleted') Local $Confirm = MsgBox(270628, 'Confirmation', 'Continue with File Deleteion(s)?') Select Case $Confirm = 6 ;Yes For $i = 1 To $FileList[0] FileRecycle($Folder & '\' & $FileList[$i]) Next Case $Confirm = 7 ;No EndSelect ===============================================================================