Question

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

Answer 1

是和否。根据{{3}}，单独使用VBscript是不可能的。

有使用内置窗口压缩和解压缩的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

压缩文件的VB脚本，并为zip文件提供文件名

1 个答案: