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

原创于 2011-08-17 14:24:57 发布 · 545 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vbscript #file #测试 #each #path

VbsScript 专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一个使用VBS脚本的方法来查找指定文件夹中最近创建的文件。通过遍历文件夹内的所有文件并比较其创建日期，脚本能够确定最新的文件。

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