自动化测试日志的生成

fsweicaixia

自动化测试日志怎么设计 ，要将测试报告发送给其他人员看的。

clack-kent

我这边有个方法，有点笨，发你看看是否需要采用：        Dim fso, logFile
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set logFile = fso.OpenTextFile("D:\陈元元\QTP脚本\Demo\log\runtime.txt", 8, True)'自行修改你自己本地的日志路劲，在路劲里面新建一个txt文本即可

logFile.WriteLine("+++++++++++++++++++++++++++++++++++++++++++++++++++

logFile.WriteLine("+++++++++++++++++++++++++++++++++++++++++++++++++++")

logFile.WriteLine("+++++++++++++++++++++++++++++++++++++++++++++++++++")     
                logFile.Close
          'Public Function ErrorHandle()
           If Err.Number <> 0 Then
               logFile.WriteLine( "Error Num: " & Err.Number & "; Error Src: " & Err.Source & "; Error Desc: " & Err.Description)          '报错处理
                Err.Clear
        End If

clack-kent

回复 2# clack-kent

把里面的代码复制到QTP砖家视图界面即可，在你需要输出日志的地方把logfile.writeline即可

fsweicaixia

不了  这是最基础的日志  我说的是  框架测试报告  执行了多少测试用例  通过多少  失败多少  等等比较全面的报告， 谢谢啊

yinhuanping

为什么我执行这条语名  fso = CreateObject("Scripting.FileSystemObject"), 系统提示“系统不支持此属性或方法”