Arhivare cu WinZip

oZip = CreateObject("WScript.Shell")
oZip.Run("Winzip -a -r -p -ex c:\archiva.zip c:\Director_de_Arhivat\*.*", 0,.T.)

Release oZip
oZip = Null