' Benötigte Konstanten des FileSystemObjects festlegen
' Set FSO = CreateObject("Scripting.FileSystemObject")
 
'' Ordner leerrräumen
' FSO.DeleteFile strArchivPfad + "temp\*", True
If Right$(strArchivPfad, 1) <> "\" Then strArchivPfad = strArchivPfad & "\"
Kill strArchivPfad & "temp\*.*"
DoEvents
 
' Spracheinstellung und Kompressionsrate festlegen
sevZIP_SetLanguage 1  ' Deutsch
' sevZIP_SetCompressionRate 6  ' Normal (WinZip-Standard)
 
' UnZIP-Vorgang jetzt starten
Dim nResult As Long
nResult = sevZIP_UnZip(strDateiname, strArchivPfad & "temp", "", 2, _
  txtStatus.hWnd)
MsgBox CStr(nResult) & " Datei(en) entpackt."

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de