Can't get onto the website to see if this is similar answer, but this is
one way we do it here
just a note the wzzip is the command line exe you could also use
winzip32
' Winzip Program for command line
Const WIN_ZIP As String = """C:\Program Files\Winzip\wzzip"""
Function ZipFiles(sZipFileName As String, sFileToZip As String, Optional
sAction As String = "a") As Boolean
Dim sCommand As String
If LCase(sAction) = "a" Then ' Add files to zip
sCommand = WIN_ZIP & " -yb -a " & sZipFileName & " " &
sFileToZip
ElseIf LCase(sAction) = "m" Then ' Move files to zip
sCommand = WIN_ZIP & " -yb -m " & sZipFileName & " " &
sFileToZip
Else
sCommand = WIN_ZIP & " -yb -a " & sZipFileName & " " &
sFileToZip
End If
Shell sCommand
End Function
John Burdek
Programmer Analyst
Saint Clare's Health System
66 Ford Road
Denville, NJ 07834
Phone: (973) 983-1532
Pager: (973) 259-2721
Fax: (973) 983-1530
[email protected] <mailto:[email protected]>
________________________________
From: [email protected] [mailto:[email protected]]
Sent: Thursday, June 11, 2009 11:54 AM
To: [email protected]
Subject: [talkbws] Zipping files using BWS
Is there an easy way of zipping a file up using BWS?
Joseph M. Angelo
Business Analyst
PBFS Knowledge Management
(386) 226-4590 ext 1162
[email protected]
---
To post a message to this list, send mail to: [email protected]
You are currently subscribed as: [email protected]
Unsubscribe in the customer center on our website:
http://www.bostonworkstation.com/customer_center/virtual_user_group_talk
.aspx
DISCLAIMER: Saint Clare's Health System Confidentiality Notice: This e-mail
and any accompanying documents may be confidential and/or legally privileged.
If you are not the intended recipient, you are hereby notified that any
disclosure, copying, distribution or the taking of any action in reliance on
the contents of this information is strictly prohibited. If you have received
this e-mail in error, please notify the sender immediately by reply e-mail and
delete the message and any attachments. Thank you.
---
To post a message to this list, send mail to: [email protected]
You are currently subscribed as: [email protected]
Unsubscribe in the customer center on our website:
http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx
