微笑,关怀。。。
qtp学习笔记三---qtp自动记录日志的函数
上一篇 /
下一篇 2009-12-17 09:23:17
/ 个人分类:qtp
这几天想在qtp运行过程中输出一些自己检查的结果,参看了网上大虾们写的函数,自己又改进了下,贴出来与大家分享,注意,需要在qtp的环境变量中设置你把日志保存的目录,如LogDir=d:\log\
function WriteLogMsg(str)
Dim fso,MyFile,fileAddress
Set fso=createobject("scripting.FileSystemObject")
fileAddress=Environment("LogDir")+"QtpLog"+CStr(Date)+".txt"
if(fso.FileExists(fileAddress)=false) then
if(fso.FolderExists(Environment("LogDir"))=false) then
fso.createFolder(Environment("LogDir"))
end if
fso.createTextFile(fileAddress)
end if
Set MyFile=fso.OpenTextFile(fileAddress,8,True)
MyFile.WriteLine(str)
MyFile.Close
Set MyFile=nothing
Set fso=nothing
end function
收藏
举报
TAG: