Pick Recent / Latest Excel File

Hi Anil,

I've deleted some lines and modified the mechanism a little bit. Please run the code below and provide me with the results.

Function LastModifiedFile

  Dim FolderName, FolderInfo, Num, i, FileDate, NewestTime, LatestFileIndex

  FolderName = "E:\Anil-Backup\Test Complete\Projects_Old\In4Suite Project\Exported Reports\"

  Set FolderInfo = aqFileSystem.GetFolderInfo(FolderName)

  Num = FolderInfo.Files.Count

  

  Log.Message "The folder contains " &Num &" files."

  NewestTime = aqDateTime.SetDateTimeElements(1000, 1, 1, 0, 0, 0)

  LatestFileIndex = 0

  

  For i = 0 to Num-1

  

    FileDate = FolderInfo.Files.Item(i).DateLastModified

      

    if(aqDateTime.Compare(NewestTime, FileDate) < 0) then

      NewestTime = FileDate 

      LatestFileIndex = i 

    end if 

  Next

  

  sPath = FolderInfo.Files.Item(LatestFileIndex).Path

  Log.Message NewestTime &": " & sPath



End Function