Sub Main
Dim intReturn As Integer
Dim varFileToUnzip As Variant
Dim varUnzipPath As Variant
Dim intOverwriteExisting As Integer
Dim intPreservePaths As Integer
varFileToUnzip = "c:\*.zip"
varUnzipPath = "c:\My Documents\"
intOverwriteExisting = 1
intPreservePaths = 1
intReturn = Action2.Unzip (varFileToUnzip, varUnzipPath, intOverwriteExisting, intPreservePaths)
If intReturn = 0 Then
MsgBox "Failure"
MsgBox( Action2.GetLastError )
ElseIf intReturn = 1 Then
MsgBox "Success"
End If
End Sub