Hi everyone,
Does anyone have an in-production example of creating a compressed zipped file? I found the code below in the script center, but when trying on my PC, I pushed F8 to step through and all it does is make a noise and sit on the same line. It doesn't step into the code. I have also never written a script that passes the parameter like that (in the sub definition). Am I missing a parameter/variable definition? Any complete in-production examples would be appreciated. http://www.bostonworkstation.com/customer_center/script_center/script_details.aspx?id=303&cat=20 Sub NewZip(sPath) 'Create empty Zip File Dim oFSO, arrHex, sBin, i, Zip Set oFSO = CreateObject("Scripting.FileSystemObject") arrHex = Array(80, 75, 5, 6, 0, 0, 0, _ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) For i = 0 To UBound(arrHex) sBin = sBin & Chr(arrHex(i)) Next With oFSO.CreateTextFile(sPath, True) .Write sBin .Close End With End Sub Sub FillZip(ZipFile, addFile) Set oApp = CreateObject("Shell.Application") oApp.NameSpace(ZipFile).CopyHere addFile End Sub -------------------------------------------------------------------- Heather Castillo HPMIN Analyst/Module Coordinator Information Systems Hays Medical Center 785.623.5084 office 785.623.5594 fax <mailto:[email protected]> [email protected] "Shoot for the moon...even if you miss, you'll always land among the stars."
Important: This email and any attachments may contain confidential information subject to protection under the Federal Standards for Privacy of Individually Identifiable Health Information (45 C.F.R. Parts 160 and 164). If you or your organization is a “Covered Entity” under the above mentioned regulations, you are obligated to treat such information in a manner consistent with the regulations. If it appears that this email was sent to you in error, (1) you are prohibited from utilizing or disseminating this email or any attachments; (2) please immediately delete it from your computer and any servers or other locations where it might be stored, and email this sender or call the Hays Medical Center Privacy Officer at (785) 623-2188 advising that you have done so. We appreciate your cooperation.
--- 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
