QTP通过Winrar或者纯VBS代码压缩指定的文件或文件夹

blizzardlyk

于 2010-08-24 18:37:00 发布

阅读量1.4k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： QTP使用技巧文章标签： QTP.VBS winRAR Winrar 压缩文件

本文链接：https://blog.youkuaiyun.com/blizzardlyk/article/details/5835496

本文介绍了如何通过QTP的SystemUtil.Run方法结合WinRAR命令行参数来压缩指定文件，以及如何使用纯VBS代码完成文件压缩。提供了一个名为CompressFile的函数示例，用于将源文件压缩成RAR格式，并包含了一个简单的等待和检查压缩文件是否创建的逻辑。此外，还提到了直接使用VBS进行文件压缩的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1，利用QTP中SystemUtil.Run的功能，将指定文件压缩成RAR格式。

代码如下：

Function CompressFile(soursefile,targetfile) On error resume next CompressFile = false m1 = chr(34) &targetfile& chr(34) m2 = chr(34) & soursefile& chr(34) command = "a -EP" & " " & m1 & " " & m2 SystemUtil.Run "winrar.exe",command Set fso = CreateObject("Scripting.FileSystemObject") For i = 0 to 15 If not fso.FileExists(targetfile) Then wait(2) else CompressFile = True Exit for End If Next Set fso = Nothing End Function CompressFile "c:/attachment.txt","c:/attachment.rar"

2，利用VBS：'Zip File or folder 'Example:Zip "C:\temp", "C:\Temp.zip"

Function ZipFile(ByVal mySourceDir, ByVal myZipFile)
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.GetExtensionName(myZipFile) <> "zip" Then
        Exit Sub
    ElseIf fso.FolderExists(