遍历指定文件夹的函数

smalliv4125

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

liujinkui

那就自己写个冒泡排序就可以了。
有的时间要自己动手。

blueeagle9999

以下仅供参考

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