Visual Basic - Como Zipiar un Archivo desde Visual

Hola
Quiero saber como poder zipiar un archivo desde un programa de visual basic.
Ojala alquien sepa

hay dos opciones;
1. conseguirte una clase ya armada que controle el winzip desde la clase misma
2. llamar desde la linea de comando al winzip con los parametros necesarios para hacer el zip
el tema es que en los dos casos vas a necesitar que la persona que lo use tenga instalado el winzip!
saludos,
Diego

Y cuales son los parametros necesarios, yo probe esto pero no funciono:
desde la ventanita de ejecutar
winzip c:\sda_a.con C:\sda.zip

Fijate en la página web de winzip debe haber una referencia de la linea de comando, yo particularmente uso el prower Archiver que es mejor, saludos

ESTA ES UNA RUTINA QUE UTILIZO PARA DESCOMPRIMIR UN ARCHIVO EN FORMATO DBF DESDE EL DRIVE "A"A SOLO CAMBIA EL PATH Y EN VEZ DE PKUNZIP UTILIZA PKZIP POR FAVOR AVISAME SI TE SIRVE

Sub LoadDiskBP()
Screen.MousePointer = vbHourglass
Dim Flag As Boolean
Flag = False
On Error GoTo Error_H
ChDrive "A"
Open "Pes_Ter.zip" For Input As 1
Close 1
ChDrive "D"
ChDir "Báscula Principal"
Flag = True
Kill "Pes_ter.dbf"
Shell ("pkunzip a:\Pes_ter.zip")
DoEvents
ChDir ".."
Screen.MousePointer = vbNormal
Exit Sub

Error_H:

Select Case Err
Case 53
If Flag Then Resume Next
Beep
Beep
Beep
Answer = MsgBox("No existe el Archivo" + Chr(13) + "Cambia el Disco y Presiona OK", vbOKCancel, "Error en Carga Archivo BP")
If Answer = vbOK Then Resume
Case 68, 71
Beep
Beep
Beep
Answer = MsgBox("No existe Disco en Drive A:" + Chr(13) + "Inserte el disco, Presiona OK", vbOKCancel, "Error en Carga Archivo BP")
If Answer = vbOK Then Resume
Case Else
Beep
Beep
Beep
MsgBox Error(Err), vbOKOnly, "Error en LoadDiskBP"
End Select
Screen.MousePointer = vbNormal
Exit Sub

End Sub

mandame un mail y te mandare el ejemplo
[email protected]