QTP之写日志函数
上一篇 /
下一篇 2013-07-12 14:50:59
/ 个人分类:QTP自动化测试
'‘**********************************************************************************************
'‘函数作者:xxxxxx
'‘函数功能:运行脚本时写
日志'‘输入参数:日志文件的路径及日志的内容
'‘返回值:无
'‘调用函数:业务组件函数
'‘调用函数:业务组件函数
'’************************************************************************************
Public Function Writelogs(oPath,words)
Dim FSO,logfile,IP
Set FSO = CreateObject("Scripting.FileSystemObject")
Set logFile = FSO.OpenTextFile( oPath,8, true)
logFile.WriteLine (Date&" "&Time&TestName&CStr(words))
logFile.Close
Set logFile = Nothing
Set FSO = Nothing
End Function
'写文件
Dim logPath
logPath = "D:\log.txt"
' Call CreateFile
' Call Writelogs(logPath,"
测试通过")
' Call Writelogs(logPath,"测试失败")
'
收藏
举报
TAG: