Qtp创建日志

zq861010

我想创建一个日志，把运行时错误信息都输出到里面，请问该怎么写脚本啊

愤怒的黄瓜

谢谢楼主分享

zq861010

Sub  CreateLog(message)
Const  Forwriting=1
  Const ForReading=2
  Const  ForAppending=8
  Dim TextName
  Dim fso
  Dim FilePath
  Dim text
  Set  fso=CreateObject("Scripting.FileSystemObject")
  TextName="lims"&date
  FilePath="E:\qtp脚本\物流系统\新建供应商\log\"&TextName&".txt"
  If Not( fso.FileExists(FilePath) )Then
Set text= fso.CreateTextFile(FilePath,ForWriting,True)
  else
  Set text=fso.OpenTextFile(FilePath,ForAppending,false,true)
  End If
  
  text.WriteLine(date & " " & time & "： " & message)
  text.Close
End Sub

zq861010

谢谢各位 已经解决了 写了个日志脚本 呵呵

TIB

使用ReporterManager试试吧：
http://www.advancedqtp.com/conte ... ts/reportermanager/
（需要先注册才能下载）

superliming

可以写个日志函数，在脚本中调用就可以了

TIB

Reporter.ReportEvent  micFail,  "错误步骤",  "出现XXX错误"