在VBScript中使用CopyHere是否存在大小限制的.zip文件？

Question

我有一個vbscript提取多個zip文件到不同的位置。該代碼只適用於一個文件。這個文件不起作用，恰好大於6GB。我正在處理的下一個最大的文件大約是3.5GB。

下面是代碼片段;

strFileDest = "path\to\some\dir1" 
strZIPname = "file1.zip" 
Call UnPack(strFileDest, strZIPname) 

strFileDest = "path\to\some\dir2" 
strZIPname = "file2.zip" 
Call UnPack(strFileDest, strZIPname) 

Function UnPack(strZIPdest, strZIPname) 
    Dim intOptions, objShell, objSource, objTarget 

    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objShell = CreateObject("Shell.Application") 
    sSourceFile = objFSO.GetAbsolutePathName(strZIPname) 
    Set objSource = objShell.NameSpace(sSourceFile).Items() 
    Set objTarget = objShell.NameSpace(strZIPdest) 

intOptions = 256 
If objFSO.FolderExists(strZIPdest) Then 
    objTarget.CopyHere objSource, intOptions 
Else 
    MsgBox "Cannot complete unzip for " & strZIPname & ". The destination _ 
    directory (" & strZIPdest & ") could not be located.", 0, "Invalid" 
End If 
End Function 

我已經採取了更小的壓縮並更名爲將不可複製的拉鍊。使用新的大小，腳本將解壓該文件，證明該文件的其餘腳本可以工作。我也已通過手動提取證實了該zip是有效的。當我使用指向大型zip的腳本運行腳本時，我也沒有收到任何錯誤（我沒有使用 On Error resume next）。

Answer 1

是的。據我所知它大約2GB，雖然它沒有記錄，但我以前遇到過。如果您需要壓縮比這更大的東西，請使用命令行版本7zip。

Here is a VBScript wrapper I wrote for 7zip.

Answer 2

從Windows Vista，ZIP64支持讀取。但是壓縮文件夾的創建似乎僅限於經典的zip格式。最大文件大小爲4GB，zip文件中有65535個條目。微軟在Windows XP中記錄了大於2GB的壓縮文件夾的問題。