如何用VB把文件压缩成rar、zip压缩文件调用函数shell

在编写VB程序时，我们经常会遇到需要将文件进行压缩的情况。比如我们想将一个文本文件压缩成rar或zip格式的压缩文件。这时候我们可以使用VB中的shell函数来实现这个功能。

有123.txt文件，现用VB将它压缩

假设我们有一个名为123.txt的文件，我们希望能够将它压缩成一个rar或zip文件。首先，我们需要打开VB，并新建一个按钮(Command2)来执行压缩操作。

具体过程请看我的其它经验分享

下面是实现压缩功能的代码:

Private Sub Command2_Click()
    Shell "C:Program FilesWinRARWinRAR.exe a F:1212123.rar F:1212123.txt"
End Sub

在点击Command2按钮后，上述代码将会调用系统中安装的WinRAR程序，并指定了压缩文件的路径和名称。在这个例子中，我们将123.txt压缩至F:1212123.rar。

运行执行Command2，将123.txt压缩至F:1212123.rar

当我们运行程序并点击Command2按钮时，系统会自动调用WinRAR程序，并将123.txt文件压缩至指定的压缩文件路径中。

压缩完成

当压缩过程完成后，我们可以在指定的压缩文件路径中找到生成的压缩文件。这样，我们就成功地使用VB将文件压缩成rar或zip压缩文件了。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。