zipファイルのサイズを制限する

Question

私はVBScriptでフォルダの内容を取得し、それをzipにするスクリプトを持っています。私はVBSの専門家ではないので、主に私が別の投稿で見つけたものに基づいています。これは関数です。

Sub ArchiveFolder (zipFile, sFolder) 
    With CreateObject("Scripting.FileSystemObject") 
     zipFile = .GetAbsolutePathName(zipFile) 
     sFolder = .GetAbsolutePathName(sFolder) 

     With .CreateTextFile(zipFile, True) 
      .Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, chr(0)) 
     End With 
    End With 

    With CreateObject("Shell.Application") 
     .NameSpace(zipFile).CopyHere .NameSpace(sFolder).Items 

     Do Until .NameSpace(zipFile).Items.Count = _ 
       .NameSpace(sFolder).Items.Count 
      WScript.Sleep 1000 
     Loop 
    End With 
End Sub 

サイズ制限付きファイル（80MB）で分割する必要があります。これを行う方法はありますか？

私が理解しているように、Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, chr(0))の部分はZIPファイルを作成するように指示していますが、これが何を意味し、どのようにパラメータ化するかについての説明は見つかりません。

Answer 1

私は最終的に7zipのポータブル版を使用して解決しました。そこに私が必要なパラメータでzipファイルを作成することができます：

Set oShell = CreateObject("WScript.Shell") 
strCmd = "7-Zip\7z.exe a -v80m " & zipFile & " " & sFolder 
oShell.Run(strCmd) 
Set oShell = Nothing 

Answer 2

zipファイルのサイズを制限する最も簡単な方法は、最大サイズを超えるまでファイルを追加してから、最後に追加したアイテムを削除することです。

Sub ArchiveFolder (zipFile, sFolder) 
    With CreateObject("Scripting.FileSystemObject") 
     zipFile = .GetAbsolutePathName(zipFile) 
     sFolder = .GetAbsolutePathName(sFolder) 

     With .CreateTextFile(zipFile, True) 
      .Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, chr(0)) 
     End With 

     Set oZip = .GetFile(zipFile) 
    End With 

    With CreateObject("Shell.Application") 
     cnt = 0 For Each currentItem In .NameSpace(sFolder).Items cnt = cnt + 1 
      .NameSpace(zipFile).CopyHere currentItem 

      Do Until .NameSpace(zipFile).Items.Count = cnt 
       WScript.Sleep 1000 
      Loop 

      If oZip.Size > 83886080 Then Set lastItem = .NameSpace(zipFile).ParseName(f.Name) .NameSpace("C:\temp").MoveHere lastItem Exit For End If 
     Next 
    End With 
End Sub

もちろん、スペース使用率を最適化するためのインテリジェントな戦略はありますが、ここでの答えは広すぎます。