微笑,关怀。。。

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:

 

评分:0

我来说两句

Open Toolbar