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

最新推荐文章于 2021-02-21 17:09:34 发布

原创

最新推荐文章于 2021-02-21 17:09:34 发布 · 1.4k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#QTP.VBS #winRAR #Winrar #压缩文件

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

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(