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:

 

评分:0

我来说两句

Open Toolbar