Packen und entpacken mit Boardmitteln (Batch makecab-expand)

::Testumgebung
@echo off
:: Handhabung für makecab erzeugen
  >"container.ddf" ECHO .Option Explicit  
 >>"container.ddf" ECHO .Set CabinetNameTemplate=test.cab  
 >>"container.ddf" ECHO .Set CompressionType=MSZIP  
 >>"container.ddf" ECHO .Set UniqueFiles="OFF"  
:: >>"container.ddf" ECHO .Set temp-ordner=on  
 >>"container.ddf" ECHO  "test_1.xlsx"  
 >>"container.ddf" ECHO  "test_2.xlsx"  

makecab.exe /f container.ddf
:: bereinigen
del setup.inf 
del setup.rpt
del container.ddf

move "disk1\*.*" ".\test.cab"  
:: rmdir disk1 disk2 /S/Q
rmdir disk1 /S /Q 

pause

:: Umgekehrter Weg: Cab soll entpackt werden
expand.exe test.cab -F:test_1.xlsx temp-ordner
expand.exe test.cab -F:test_2.xlsx temp-ordner

pause
:: exit

action = WScript.Arguments(0)	

Select Case LCase(action)
	Case "add"  
		sZipPath = WScript.Arguments(1)
		sFolderPath = WScript.Arguments(2)
		AddZip sZipPath, sFolderPath
	Case "extract"  
		sZipPath = WScript.Arguments(1)
		sFolderPath = WScript.Arguments(2)
		ExtractZip sZipPath, sFolderPath
End Select

Sub AddZip (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 500 
        Loop
    End With
End Sub

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

    With CreateObject("Shell.Application")  
        .NameSpace(sFolder).CopyHere .NameSpace(zipFile).Items, 16
        Do Until .NameSpace(sFolder).Items.Count = .NameSpace(zipFile).Items.Count
            WScript.Sleep 500
        Loop
    End With
End Sub

cscript //B //NOLOGO zip.vbs add "C:\test.zip" "C:\source"

cscript //B //NOLOGO zip.vbs extract "C:\test.zip" "C:\target"