Forum Discussion

mesg2anil's avatar
mesg2anil
Regular Contributor
14 years ago

Pick Recent / Latest Excel File

Hi, We've "Export To Excel" option in our application, when I export, it will write the data to excel file and store it in a folder. I'm doing this export through TestComplete. From the ...
irina_lukina's avatar
irina_lukina
Super Contributor
14 years ago

Hi Anil,


I've changed your code a little bit, and now it works fine:




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) = aqConvert.DateTimeToStr(FileDate)

      Log.Message a(i)



      'You can obtain the file name using the following code

      Log.Message FolderInfo.Files.Item(i).Path

  Next



End Function





Is it what you need?