.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 iResult As Integer

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

.zip file decompression

Dim iResult As Integer

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