I have used winzip 9.0 which has a commandline plug-in available at no extra cost - winzip cannot be the evaluation version to run in the script. Here is the code to call the routine to zip 1 file, you can also read through a directory and zip all the files or all of a particular type.
 
Const ZIP_EXE As String = """C:\Program Files\WinZip\wzzip"""

Sub caller()
WinZipSub "c:\SomeFile.bws", "c:\winziptest.zip", True
End Sub

' Zip or unzip the files.
' The default location of the winzip32.exe is
' C:\Program Files\WinZip\. If your winzip32.exe
' is in another folder, change ZIP_EXE accordingly.
Sub WinZipSub(ByVal source As String, ByVal target As String, ByVal zip_it As Boolean)
 
    If zip_it = True Then
        ' Zip appending the source file to the target.
        Shell ZIP_EXE & " -a " & target & " " & source, vbHide
    Else
        ' Extract the target to the source directory.
        Shell ZIP_EXE & " -e " & target & " " & source, vbHide
    End If
End Sub
 
Thanks,
Corinna Robertson
 
Boston Software Systems
The Essential Tool for Healthcare Integration
866-653-5105 ext. 5
508-653-5105
 


From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Mitchell Sherry - Mid West Div.
Sent: Friday, April 08, 2005 6:07 PM
To: '[email protected]'
Subject: [Talk] Using BWS to execute WinZip

Hi All~
    Has anyone used BWS to execute WinZip ???  Feasible ??? Examples !!!???
 
thanx, sherry
HCA Midwest Division IT&S
Applications Programmer/Analyst
816/823-0406

 

Reply via email to