I am using this code in an Access Database, but it (or something real close to
it) should work in BWS. We had to upgrade to version 10 of WinZip to be able
to use the command line parameters:
Function ZipFiles()
Dim file1 As String
Dim file2 As String
Dim file3 As String
Dim file4 As String
Dim zip1 As String
Dim CmdString As String
Dim a As Variant
file1 = "C:\DOWNLOAD\COMPASS\ACCTS" & Format(Date, "mmddyy") & ".TXT"
file2 = "C:\DOWNLOAD\COMPASS\TXN" & Format(Date, "mmddyy") & ".TXT"
file3 = "C:\DOWNLOAD\COMPASS\ZERO" & Format(Date, "mmddyy") & ".TXT"
file4 = "C:\DOWNLOAD\COMPASS\UNBILLED" & Format(Date, "mmddyy") & ".TXT"
zip1 = "M:\COMPASS\DRH" & Format(Date, "mmddyy") & ".ZIP"
CmdString = "c:\program files\winzip\wzzip " & zip1 & " " & file1 & " " &
file2 & " " & file3 & " " & file4
a = Shell(CmdString)
End Function
Shirley Hammack
I.T. Financial Analyst
Duncan Regional Hospital
580-251-8939
From: [email protected] [mailto:[email protected]]
Sent: Friday, July 16, 2010 11:17 AM
To: [email protected]
Subject: [talkbws] Zipping a file
I am looking at a process to have Boston alter a file that comes from McKesson
Star and then sending it via FTP to a vendor site for processing. The problem
is my vendor only accepts zipped files - does anyone know if Boston is capable
of compressing a file? Maybe as a VB process??
Also does anyone know if Boston has a size limitation on FTP? The files in
question are just under 1MB.
Thanks!
Tom Marquis
Applications Analyst, Patient Accounts
North Kansas City Hospital
(816) 225-4232
[email protected]
________________________________
Confidentiality Notice: This email message, including any attachments, is for
the sole use of the intended recipient(s), and may contain privileged or
confidential information. Any unauthorized review, use, disclosure or
distribution is prohibited. If you are not the intended recipient, please
notify the sender of this email, and destroy all copies of the original
message.
--- 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
Please consider the environment before printing this e-mail.
"CONFIDENTIALITY NOTICE: This e-mail and any files transmitted
with it are the property of DRH and/or its affiliates,
are confidential, and are intended solely for the use of the
individual or entity to whom this e-mail is addressed.
If you are not one of the named recipient(s) or otherwise have
reason to believe that you have received this message in error,
please notify 580.251.8773 and delete this message immediately
from your computer. Any other use, retention, dissemination,
forwarding, printing, or copying of this e-mail is strictly prohibited."
--- 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
