Greetings, FYI.
The example on the website uses an approach that doesn't require winzip32. Thanks for sending this approach, I've added it to the site. As an aside, pretty easy to sign up to get access J Regards, Thom Thom C. Blackwell Product Manager Boston Software Systems (866) 653-5105 ex 807 www.bossoft.com <http://www.bossoft.com/> Visit us at HFMA's - ANI: The Healthcare Finance Conference - Booth 110 Sign up for my weekly webinar! <http://www.bostonworkstation.com/customer_center/special_events.aspx> LEGAL NOTICE Unless expressly stated otherwise, this message is confidential and may be privileged. It is intended for the addressee(s) only. Access to this E-mail by anyone else is unauthorized. If you are not an addressee, any disclosure or copying of the contents of this E-mail or any action taken (or not taken) in reliance on it is unauthorized and may be unlawful. If you are not an addressee, please inform the sender immediately, then delete this message and empty from your trash. From: [email protected] [mailto:[email protected]] Sent: Friday, June 12, 2009 10:39 AM To: Talk Subject: [talkbws] RE: Zipping files using BWS 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 --- 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 --- 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 --- 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
