.gz file compression

sGZip "\My Documents\file.txt", "\My Documents\compressed.txt", 1, 1234567890

.gz file decompression

sGUnzip "\My Documents\compressed.txt.gz", "\My Documents\file.txt", 1, 1234567890

.zip file compression

Dim lResult As Long

lResult = sZip("\My Documents\*.txt", "\My Documents\text.zip", 0, 1234567890)
If lResult <> 0 Then
    MsgBox "Unable to compress files"
Else
    MsgBox "Files have been compressed"
End If

.zip file decompression

Dim lResult As Long

lResult = sUnzip("\My Documents\text.zip", "", 0, 1234567890)
If lResult <> 0 Then
    Msgbox "Unable to decompress zip file"
Else
    MsgBox "Files have been decompressed"
End If