51Testing软件测试论坛

标题: 遍历指定文件夹的函数 [打印本页]

作者: smalliv4125 时间: 2009-8-22 19:44
标题: 遍历指定文件夹的函数
在用QTP测试中需要用VBS写个函数遍历指定文件夹（例如：D:\test）下的所有文件夹的名字，返回名字最大的那个，所有文件夹名字的命名都是以日期和时间命名的，也就是返回时间日期最靠后的那个文件夹名字，请高手给写个函数。

作者: liujinkui 时间: 2009-8-23 14:14
那就自己写个冒泡排序就可以了。
有的时间要自己动手。

作者: blueeagle9999 时间: 2009-8-24 10:00
以下仅供参考

Sub  ImportUtilFun(importFolder)

Dim  UtilFolder                   '定义文件夹对象
  Dim UtilFileCollection       '定义文件集合对象
  Dim  str_Array_File          '定义字符数组
  Set UtilFolder=ObjFSO.GetFolder(importFolder)
Set UtilFileCollection=UtilFolder.Files

For each UtilFile in UtilFileCollection
      str_Array_File=Split(UtilFile,".")

      If  UBound(str_Array_File)>0 Then  '如果含有.后缀，则执行这个文件
         Executefile UtilFile.Path
      End If

Next

End Function

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)