Question

怎么用VB调用winRAR压缩多个文件?

注意，是多个文件，不是一个

Answer 1

Dim WinRar As String 'winrar.exe文件路径
Dim File1 As String ' 源文件路径
Dim File2 As String ' 源文件路径
Dim File3 As String ' 源文件路径
Dim Target As String ' 目标文件路径
Dim Goal As String
WinRar = "C:\Program Files\WinRAR\winrar.exe"
File1 = "C:\Users\Administrator\Desktop\DATAG2\Data.xml"
File2 = "C:\Users\Administrator\Desktop\DATAG2\Result.xml"
File3 = "C:\Users\Administrator\Desktop\DATAG2\Testing.xml"
Target = "C:\Users\Administrator\Desktop\DATAG2\" & "压缩文件名" & ".zip"
Goal = WinRar & " a -ep " & Target & " " & File1 & " " & File2 & " " & File3
Shell Goal

Answer 2

Winrar有命令行命令，用VB执行就可以