Get latest file in folder

[ScriptFu]

Hello,

I need to get the latest file in a folder and then compress it.

Has anyone done this before?

Thanks.

[Melba23]

ScriptFu,

Not that I know of, but a combination of _FileListToArray, FileGetTime and wraithdu's ZIP UDF should be able to do it fairly easily.

Give it a try yourself first - you know where we are if you run into problems.

M23

[LurchMan]

This would be my example for how to find the latest file..its probably not done in the best fashion but its the way I know how to do it.

expandcollapse popup

#include <file.au3>
#include <array.au3>
#include <date.au3>
$rtn = _LatestFile ("C:dell")
ConsoleWrite($rtn & @LF)
Func _LatestFile ($sDir)
Local $aTimes[1]
If StringRight($sDir, 1) <> "" Then $sDir &= ""
$aFiles = _FileListToArray ($sDir, "*", 1)
$err = @error
If $err > 0 Then
  Switch $err
   Case 1
    SetError (1) ;Path not found
    Return -1
   Case 4
    SetError (2) ;No files found
    Return -1
  EndSwitch
EndIf
ReDim $aTimes[$aFiles[0]+1]
$aTimes[0] = $aFiles[0]
For $n = 1 To $aFiles[0]
  $atmp = FileGetTime ($sDir & $aFiles[$n])
  $aTimes[$n] = $atmp[0] & "/" & $atmp[1] & "/" & $atmp[2] & " " & $atmp[3] & ":" & $atmp[4] & ":" & $atmp[5]
Next
For $n = 1 To $aTimes[0]
  If $n = 1 Then $sCurrHigh = $aTimes[1]
  $diff = _DateDiff ("s", $sCurrHigh, $aTimes[$n+1])
  If $n+2 > $aTimes[0] Then ExitLoop
  If StringLeft ($diff, 1) <> "-" Then  $sCurrHigh = $aTimes[$n+1]
Next
For $n = 1 To $aTimes[0]
  If $sCurrHigh = $aTimes[$n] Then
   $sLatestFile = $aFiles[$n]
   ExitLoop
  EndIf
Next
Return $sLatestFile
EndFunc

[Spiff59]

There's also the DOS route, which has the advantage of speed and the disadvantage of not processing unicode filenames:

Global $sDirectory = @WindowsDir, $sStdOut
$PID = Run(@ComSpec & ' /c DIR "' & $sDirectory & '" /A-D /-C /O-D /B', "", @SW_HIDE, 2) ; 2 = $STDOUT_CHILD
While Not @error
$sStdOut &= StdoutRead($PID)
WEnd
$sStdOut = StringStripWS($sStdOut, 7)
$aStdOut = StringSplit($sStdOut, @CRLF)
MsgBox(0,"",$aStdOut[1])

Edited October 23, 2012 by Spiff59

[DaveYuhas]

This would be my example for how to find the latest file..its probably not done in the best fashion but its the way I know how to do it.

 

expandcollapse popup

#include <file.au3>
#include <array.au3>
#include <date.au3>
$rtn = _LatestFile ("C:dell")
ConsoleWrite($rtn & @LF)
Func _LatestFile ($sDir)
Local $aTimes[1]
If StringRight($sDir, 1) <> "" Then $sDir &= ""
$aFiles = _FileListToArray ($sDir, "*", 1)
$err = @error
If $err > 0 Then
  Switch $err
   Case 1
    SetError (1) ;Path not found
    Return -1
   Case 4
    SetError (2) ;No files found
    Return -1
  EndSwitch
EndIf
ReDim $aTimes[$aFiles[0]+1]
$aTimes[0] = $aFiles[0]
For $n = 1 To $aFiles[0]
  $atmp = FileGetTime ($sDir & $aFiles[$n])
  $aTimes[$n] = $atmp[0] & "/" & $atmp[1] & "/" & $atmp[2] & " " & $atmp[3] & ":" & $atmp[4] & ":" & $atmp[5]
Next
For $n = 1 To $aTimes[0]
  If $n = 1 Then $sCurrHigh = $aTimes[1]
  $diff = _DateDiff ("s", $sCurrHigh, $aTimes[$n+1])
  If $n+2 > $aTimes[0] Then ExitLoop
  If StringLeft ($diff, 1) <> "-" Then  $sCurrHigh = $aTimes[$n+1]
Next
For $n = 1 To $aTimes[0]
  If $sCurrHigh = $aTimes[$n] Then
   $sLatestFile = $aFiles[$n]
   ExitLoop
  EndIf
Next
Return $sLatestFile
EndFunc

When I run the code I get a "Subscript used with non-Array variable" error.

[Melba23]

DaveYuhas,

Welcome to the AutoIt forum.

That error indicates that you are trying to access what you think is an array, but is actually not. I suggest you modify the script to use IsArray to check on all the arrays before you try to access them. Then once you have identifed the non-existent array, you can look to see why it is not being created as expected.

M23

[Elena]

Let me also introduce you my function, I guess it's simple and rather clear.

; Func: _FindLatestLog
; Searches the latest file in specified directory with specified mask
; Example of usage: FindLatestLog (@UserProfileDir & "\AppData\Roaming\Application", "*Waiter*.log")
Func _FindLatestLog ($dir, $mask)
   Local $latestTime = 0, $currentTime = 0
   Local $files = _FileListToArray($dir, $mask, 1)
   If @error = 1 Then
      ConsoleWrite('Func: FindLog, Error: Path was invalid.' & @CRLF)
      Return False
   EndIf
   If @error = 4 Then
      ConsoleWrite('Func: FindLog, Error: Log file was not found.' & @CRLF)
      Return False
   EndIf

   For $i = 1 To UBound($files) - 1
      $currentFile = $dir & "\" & $files[$i]
      $currentTime = FileGetTime($currentFile, $FT_MODIFIED, 1)
      If $currentTime > $latestTime Or $i = 1 Then
         $latestTime = $currentTime
         $latestFile = $currentFile
      EndIf
   Next

   ConsoleWrite( "Latest log file: " & $latestFile & ", time modified: " & $latestTime & @CRLF)
   Return $latestFile

EndFunc  ;==>_FindLatestLog

 

[ViciousXUSMC]