如何在沒有WinRAR，Winzip或7zip的情況下批量壓縮文件？

Question

我正在嘗試使用批處理文件將特定目錄中的所有文件和文件夾壓縮到一個壓縮文件夾中而沒有使用WinRAR，WinZip或7Zip。

更具體地說： 比方說，我有一個名爲文件\ 文件夾，我想創建一個拉鍊在文件\一切到一個新的.zip文件內稱爲類似的文件\文件夾中的批處理文件「MyZippedFile 。壓縮」。

任何幫助將不勝感激！

Answer 1

拉鍊是文件夾。這從一個fodler複製到另一個。

'Zip.vbs - needs an existing zip file 
Set objShell = CreateObject("Shell.Application") 
Set Ag=Wscript.Arguments 
set WshShell = WScript.CreateObject("WScript.Shell") 

Set SrcFldr=objShell.NameSpace(Ag(1)) 
Set DestFldr=objShell.NameSpace(Ag(0)) 
Set FldrItems=SrcFldr.Items 
DestFldr.CopyHere FldrItems, &H214 
Msgbox "Finished" 

'Unzip.vbs - needs existing unzip directory 
Set objShell = CreateObject("Shell.Application") 
Set Ag=Wscript.Arguments 
set WshShell = WScript.CreateObject("WScript.Shell") 

Set DestFldr=objShell.NameSpace(Ag(1)) 
Set SrcFldr=objShell.NameSpace(Ag(0)) 
Set FldrItems=SrcFldr.Items 
DestFldr.CopyHere FldrItems, &H214 
Msgbox "Finished" 

'CreateBlankZip.vbs 
Set Ag=Wscript.Arguments 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set ts = fso.OpenTextFile(Ag(0), 8, vbtrue) 
BlankZip = "PK" & Chr(5) & Chr(6) 
For x = 0 to 17 
    BlankZip = BlankZip & Chr(0) 
Next 
ts.Write BlankZip 

Answer 2

我創建了zipping files from different folders preserving the directory structure發現VBS腳本備份目錄和文件只使用內置的寡婦壓縮功能。它只能壓縮文件和文件夾，不解壓縮。保持文件夾完好無損。

將代碼放在一個文件中（例如BackZip.vbs），並使用wscript.exe執行它，該代碼包含在大多數使用.NET的計算機中。 （如wscript.exe BackZip.vbs /X "C:\My Folder\"）它只需要2005年發佈的.NET 2.0或更高版本。

很多代碼圍繞處理單個文件，但如果你只是在做文件夾，你可以刪除很多碼。