Function Zip(sFile,sArchiveNa­me)
Set oFSO = WScript.CreateObject­("Scripting.FileSyst­emObject")
Set oShell = WScript.CreateObject­("Wscript.Shell")
aScriptFilename = Split(Wscript.Script­FullName, "\")
sScriptFilename = aScriptFileName(Ubou­nd(aScriptFilename))
sWorkingDirectory = Replace(Wscript.Scri­ptFullName, sScriptFilename, "")
If oFSO.FileExists(sWor­kingDirectory & " " & "WZZIP.EXE") Then
sWinZipLocation = ""
ElseIf oFSO.FileExists("C:\­programme\WinZip\WZZ­IP.EXE") Then
sWinZipLocation = "C:\programme\WinZip­\"
Else
Zip = "Error: Couldn't find WZZIP.EXE"
Exit Function
End If
'Vorher war nur herausfinden wo Winzip ist usw.
'hier wird dann gestartet: "<pfad zu winzzip>/wzzip.exe -ex -r -p -whs -ybc -r "archivname" <filename>
oShell.Run """" & sWinZipLocation & "wzzip.exe"" -ex -r -p -whs -ybc -r """ & _
sArchiveName & """ """ & sFile & """", 0, True
'Existiert danach die Ausgabedatei?
If oFSO.FileExists(sArc­hiveName) Then
Zip = 1
Else
Zip = "Error: Archive Creation Failed." 'Wenn nicht: Fehler
End If
End Function