qtp学习笔记---- 压缩文件

'压缩文件
function PressFile()
on error resume next
set ws=createobject("wscript.shell")
set fso=createobject("scripting.FileSystemObject")
dim Pressdate
pressdate=split(date,"-")(0) & split(date,"-")(1) & split(date,"-")(2)
m1=" D:\log\" & pressdate &".rar"
m2=" D:\log\" & pressdate
m3="D:\log\" & pressdate &".rar"
m4="D:\log\" & pressdate
if (fso.FolderExists(m4)) then
mm="WinRAR a -r"&m1&m2
myre=ws.run(mm,1,True)
end if
set fso=nothing
set ws=nothing
PressFile=m3
end function
call PressFile()