Pick Recent / Latest Excel File

Hi Anil,

I'm really sorry for confusing you. Try using the following code:

Function LastModifiedFile

  Dim FolderName, FolderInfo, Num, i, FileDate, a()

  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."

  

  For i = 0 to Num-1

      ReDim Preserve a(i)

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

      a(i) = FileDate

  Next

  

  NewestTime = a(0) 

  LatestFileNumber = 1

   

  For i = 0 to Num-1

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

      NewestTime = a(i) 

      LatestFileNumber = i+1  

    end if 

  Next

  

  sPath = FolderInfo.Files.Item(LatestFileNumber -1).Path

  Log.Message NewestTime

  Log.Message sPath



End Function