Sub binaryfilewriter(inhalt)
	'code teilweise aus: http://www.paulsadowski.com/wsh/GetRemoteBinaryFile.htm
	
	set oStream = createobject("Adodb.Stream")
	
	oStream.type = 1 '1 = binary, 2 = text
	oStream.open
	oStream.write inhalt
	
	'datei schreiben
	oStream.savetofile ZipName, 2 '2 = ueberschreiben, 1 = nicht ueberschreiben
	
	oStream.close
	
End Sub

Sub entpacker()
	'Code teilweise aus: http://forum.chip.de/programmieren/vbs-einzelne-datei-zip-entpacken-1552295.html

	Set objFSO = CreateObject("Scripting.FileSystemObject")
	
	
	strExpandTo = objFSO.GetAbsolutePathName(ExpandTo)
	
	'update-ordner löschen, falls er fälschlicherweise schon da sein sollte
	If objFSO.FolderExists(ExpandTo) Then
		objFSO.DeleteFolder(ExpandTo)
	End If
	
	'update-ordner erstellen
	objFSO.CreateFolder(strExpandTo)
	
	'Ueber "shell.application" auf die Zip-Datei und den Zielordner zugreifen
	Set objShellApp = CreateObject("Shell.Application")
	Set objZip = objShellApp.NameSpace(ZipName)
	Set objExpand = objShellApp.NameSpace(ExpandTo)
	
	'ZIP-Inhalt in den Ziel-Ordner kopieren
	objExpand.CopyHere(objZip.Items)
	
	'ZIP-Datei löschen
	strZipName = objFSO.GetAbsolutePathName(ZipName)
	objFSO.DeleteFile(strZipName)
End Sub