RE:Como Zipiar un Archivo desde Visual
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