批量删除QTP报告脚本

deadhunter

用VBS写的QTP报告脚本,该脚本有个缺点,就是对脚本存放的目录有要求,请问可以怎样改进?

Dim sourcepath
sourcepath = "D:\QTP"
Call FolderAttributes(sourcepath)

Sub FolderAttributes(sourcepath)
   Dim fso,objset,objFolders,FolderName,i
   i = 0
   Set fso = CreateObject("Scripting.FileSystemObject")
        '使用GetFolder方法来返回Folder对象
        Set objset = fso.getFolder(sourcepath)
        'SubFolders属性将返回所有子文件夹对应的Folder集合
        Set objFolders = objset.SubFolders
        '遍历Folder集合，统计出共有多少个文件夹，及相关文件夹的名字
        For Each objFolder in objFolders
                Set objset1=fso.GetFolder(objFolder)
                Set objFloders1=objset1.SubFolders
                For each objFolder1 in objFloders1
                    Set objset2=fso.GetFolder(objFolder1)
                    Set objFloders2=objset2.SubFolders
                        For each objFolder2 in objFloders2
                            Call scwj(objFolder2)
                        Next
                next
        Next
        Set fso = nothing
End Sub


sub scwj(filename)   '删除文件
Set fso = CreateObject("Scripting.FileSystemObject")
if regExpTest("Res", True, filename) then     '如果是RES目录
    fso.DeleteFolder filename
end If
Set fso = nothing
end sub

Function regExpTest(patternString, ignoreCaseFlag, srcString )
        Dim regEx, retVal
        Set regEx = New RegExp
        regEx.Pattern = patternString
        regEx.IgnoreCase = ignoreCaseFlag
        retVal = regEx.Test(srcString)
        If retVal Then
                regExpTest = true
                else
        regExpTest = false
        End If
End Function

云层

麻烦点就通过QTP的AOM拿到结果目录，然后删掉所有Res开头的目录，其实你要是觉得这个报告麻烦，还不如设置QTP不要生成日志

17800455

楼上正解，最好就是设置qtp不生成日志。

要不就通过AOM自动获取结果目录，拿到目录后在用你这个删除。就成了。

不细说了，你不知道就百度吧。