【软件自动化测试 - VBScript 5】== Get the recently createed Folder or a File in a Parent Folder

Set objFileSysOb = CreateObject("Scripting.FileSystemObject")
Set colFolderName = objFileSysOb.GetFolder("Give your Parent Folder path here")
Set vFiles =colFolderName.Files
dim f, datecreated, lastfilename


For each i in vFiles

   d = Split(i,"\")

   FileName=d(ubound(d))
   f = objFileSysOb.GetFile(FileName)
   if datecreated = "" then
     datecreated = f.DateCreated
     lastfilename = FileName
   else
      'check lastdate to current file
      if datecreated < f.DateCreated then
         datecreated = f.DateCreated
         lastfilename = FileName
      end if
   end if
Next
msgbox "Last file created was " & lastfilename