用於壓縮文件的VB腳本併爲zip文件指定文件的名稱

Question

需要使用VB腳本來壓縮文件夾中的文件，併爲該壓縮文件創建文件原始名稱的名稱。就像如果有一個名爲abc.trn的trn文件那麼想要創建一個名爲abc.zip的zip文件。請幫助，如果任何人有任何想法

Answer 1

是的，沒有。根據this answer on SO單獨使用VBscript是不可能的。

有VBA的方法來壓縮並使用內置 壓縮以及窗戶，這應該給一些有識之士至於 系統如何運作解壓。您可以將這些方法構建爲您選擇的 腳本語言。

但是，您可以使用「Windows外殼程序的執行相關的行爲」（同樣，來自同一來源的引用）

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