Hi
Hope it is of use coding to do both zip and unzip
Function ZIP()
'TO ZIP A FILE
Dim FileToSave As String, ZipFileName As String
FileToSave = "C:\YOUR_FILE_TO_ZIP.TXT"
ZipFileName = "C:\YOUR_ZIP_FILE"
Call Shell("c:\Program Files\winzip\Winzip32.exe -A " _
& ZipFileName & " " & FileToSave, 1)
End Function
Then to Unzip
Function unZIP()
'TO UNZIP A FILE
Dim FileToUnzip As String, ZipOutputTo As String
FileToUnzip = "C:\YOUR_ZIP_FILE.ZIP"
ZipOutputTo = "C:\"
Call Shell("c:\Program Files\winzip\Winzip32.exe -e " _
& FileToUnzip & " " & ZipOutputTo, 1)
End Function
regards
Martin