vbscript - 用于压缩文件并为压缩文件提供文件名的 VB 脚本

Question

需要 VB 脚本的帮助来压缩文件夹中的文件，并为创建的 zip 文件命名为文件的原始名称。就像如果有一个名为 abc.trn 的 trn 文件，那么想要创建一个名为 abc.zip 的 zip 文件。如果有人有任何想法，请帮忙

Answer 1

是和不是。根据这个关于 SO 的答案，单独使用 VBscript 是不可能的。

也有使用内置压缩的 Windows 进行压缩和解压缩的 VBA 方法，这应该可以让您了解系统的运行方式。您可以将这些方法构建到您选择的脚本语言中。

但是，您可以使用“Windows shell 的依赖于实现的行为”（再次引用同一来源）

Dim fso, winShell, MyTarget, MySource, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set winShell = createObject("shell.application")


MyTarget = Wscript.Arguments.Item(0)
MySource = Wscript.Arguments.Item(1)

Wscript.Echo "Adding " & MySource & " to " & MyTarget

'create a new clean zip archive
Set file = fso.CreateTextFile(MyTarget, True)
file.write("PK" & chr(5) & chr(6) & string(18,chr(0)))
file.close

winShell.NameSpace(MyTarget).CopyHere winShell.NameSpace(MySource).Items

do until winShell.namespace(MyTarget).items.count = winShell.namespace(MySource).items.count
    wscript.sleep 1000 
loop

Set winShell = Nothing
Set fso = Nothing