VB SCript 创建一个压缩包

你可以使用 VBScript 来创建一个压缩包。以下是一个示例代码，它使用 Shell.Application 对象和 CopyHere 方法来实现压缩：

' 创建一个压缩包
Sub CreateZip(zipPath, sourceFolder)
    Dim shell, zipFile, files, folder

    ' 创建 Shell.Application 对象
    Set shell = CreateObject("Shell.Application")

    ' 创建一个新的压缩包
    Set zipFile = shell.NameSpace(zipPath)

    ' 获取源文件夹中的所有文件和子文件夹
    Set files = shell.NameSpace(sourceFolder).Items

    ' 将文件和子文件夹复制到压缩包中
    zipFile.CopyHere files

    ' 等待直到压缩完成
    Do While zipFile.Items.Count <> files.Count
        WScript.Sleep 200
    Loop

    ' 释放对象
    Set folder = Nothing
    Set files = Nothing
    Set zipFile = Nothing
    Set shell = Nothing
End Sub

' 示例调用
Dim zipPath, sourceFolder
zipPath = "C:\path\to\output.zip"  ' 压缩包路径
sourceFolder = "C:\path\to\source"  ' 源文件夹路径

CreateZip zipPath, sourceFolder

在示例代码中，你需要将 `zipPath` 替换为你想要创建的压缩包的路径，将 `sourceFolder` 替换为你要压缩的源文件夹的路径。然后，调用 `CreateZip` 子过程即可创建压缩包。请确保你有足够的权限来创建和访问相关文件和文件夹。