Public Sub Zip_Unzip()
Dim sZipFile As String
Dim sDestPath As String
Dim sPassword As String
Dim nOverwriteState As Long
Dim nResult As Long
Dim nSubFolder As Long
sevZIP_SetLanguage 1  ' Deutsch
sZipFile = txtJAR
sDestPath = Pfad
sPassword = ""
nOverwriteState = 3
nSubFolder = 1
nResult = sevZIP_CheckZipFile(sZipFile, sPassword)
End Sub
 
Public Sub Zip_Folder()
sevZIP_SetLanguage 1  ' Deutsch
sevZIP_SetCompressionRate 6  ' Normal (WinZip-Standard)
Dim sFolder As String
sFolder = Pfad
Dim sZipFile As String
sZipFile = App.Path & "\" & CommonDialog1.FileTitle
sevZIP_SetRootDir ""
sevZIP_IncludeSystemFiles 1
sevZIP_IncludeHiddenFiles 1
Dim sPassword As String
sPassword = ""
Dim nSubFolder As Long
nSubFolder = 1
Dim sFileSpec As String
sFileSpec = "*.*"
Dim nOverwrite As Long
nOverwrite = 1
Dim nResult As Long
nResult = sevZIP_ZipFolderEx(sZipFile, sFolder, sFileSpec, _
nSubFolder, sPassword, nOverwrite, txtStatus.hWnd)
End Sub