Paul
Thu Mar 20 21:16:13 CDT 2008
"Jeff C" <JeffC@discussions.microsoft.com> wrote in message
news:B16EFC9B-9A5F-4070-B95E-0E6F157C7CF3@microsoft.com...
> Does anyone have a method of zipping more than one file into one
> compressed
> file? I am trying to combine several report files into one so I can
> then
> execute command line switches for Outlook to schedule emails. I
> have the
> command line working but Outllok will not attach more than one file
> with this
> method.
>
> Any other ideas?
>
> Thank in advance
> --
> Jeff C
> Live Well .. Be Happy In All You Do
I have been working on a set of routines to create a .zip file and add
files/folders to it, but this is still a work in progress. Back in
the days of the DOS days of PKZip, I had a number of batch files for
creating and adding to zip files, and I understood the overhead
associated with adding things to or deleting things from a zip file;
there was a lot of overhead with modifying large zip files, so I
worked hard to set it up to create the zip file with one pkzip
command.
The zip process I currently use is a combination of ideas from a
number of posts. It sets up an empty .zip file by writing 31 bytes to
a file with a .zip extension. It then sets up a shell.application
folder object for that .zip destination file, using the
shell.application's Namespace method.
I manually copy all the files/folders I intend to put into that .zip
file into a single source folder. The script creates a
shell.application folder object for this source folder.
The script uses the zip file's shell.application folder object's
CopyHere method to copy all the source shell.application folder's
items. This spawns a separate process that does the actual
copying/zipping, and I don't know of any 'copy/zip done' event to
indicate completion. Depending on things I haven't investigated,
there may be user prompts or a progress window.
The script then monitors the count of items in the zip file's
shell.application folder object. When that count matches the items
count for the source shell.application folder object, the script
assumes the process must be complete. The script doesn't have a
timeout exit if the count is never reached.
I think you could add to an existing .zip file using this process, but
you would have to make adjustments for item count. I have not
investigated how much overhead is involved with adding files to a
large existing .zip file. I don't know what happens with file/folder
name collisions in the destination .zip file. I think you can filter
the items collection with wildcards, so that only a subset of items
from the source folder is put into the zip file. I think the source
folder can be a 'search' result folder, so you might be able to zip a
collection of stuff from a number of source folders with one CopyHere.
If you want to play with this work in progress, here it is:
'Script to demo zipping all the files in a specified folder into a new
' .Zip file
'Note: This demo does NOT have a direct method of monitoring progress.
'The Shell Folder's CopyHere method starts an external process to
' do the actual copying; depending on options set, it may provide
' popup windows to show progress, ask what to do about
' collisions, etc. This external process does not show up in Task
' Manager.
' Note that any progress or other popup windows take focus away
' from whatever the user may be doing, or from other windows
' to which scripts may be sending keystrokes through the use
' of things like SendKeys or AutoIt.
'This script overwrites the specified .Zip file, creating a new one,
' thus ensuring that completion can be assumed when the number of
' items in the .Zip file matches the number of items in the source
' folder.
Option Explicit
Dim TimeStart
MsgBox "Starting"
Dim sFolderPath: sFolderPath = "H:\ZipTest"
Dim sFullZipPath
sFullZipPath = "C:\Documents and Settings\Paul\My
Documents\vbScript\ZipTest\dummy2.zip"
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FileExists(sFullZipPath) Then
With CreateObject("Scripting.FileSystemObject")
.CreateTextFile(sFullZipPath, True, False).Write("")
End With
End If
Dim oShellApp
Set oShellApp = CreateObject("Shell.Application")
MsgBox "Prior to creating/overwriting the current Zip file:" & vbCrLf
& _
"sFullZipPath Count = " & oShellApp.NameSpace _
(sFullZipPath).Items.Count & vbCrLf & _
"sFolderPath Count = " & oShellApp.NameSpace _
(sFolderPath).Items.Count
TimeStart = Now
' Create an empty ZIP file
CreateMTZip sFullZipPath
' Copy all files from sFolderPath into the ZIP file
oShellApp.NameSpace(sFullZipPath).CopyHere _
oShellApp.NameSpace(sFolderPath).Items
' Keep script waiting until compression is done
'WScript.Sleep 1000
On Error Resume Next
Do Until oShellApp.NameSpace(sFullZipPath).Items.Count _
= oShellApp.NameSpace(sFolderPath).Items.Count
WScript.Sleep 200
Loop
On Error Goto 0
MsgBox "Elapsed time: " & DateDiff("s", TimeStart, Now) & _
" Seconds" & vbCrLf & _
"After creating/overwriting the current Zip file:" & vbCrLf & _
"sFullZipPath Count = " & oShellApp.NameSpace _
(sFullZipPath).Items.Count & vbCrLf & _
"sFolderPath Count = " & oShellApp.NameSpace _
(sFolderPath).Items.Count
Function CreateMTZip(sZipPath)
'Creates OR overwrites the file sZipPath, with a binary string
' that represents the contents of an empty .Zip file/folder.
'If the file name's extension is .zip, then WXPSP2 (and perhaps
' other Windows versions) will treat this file as an empty
' compressed folder.
Dim sBinary 'String equivalent of empty .Zip file/folder.
sBinary = "PK" & Chr(5) & Chr(6) & String(18, 0)
With CreateObject("Scripting.FileSystemObject")
.CreateTextFile(sZipPath, True, False).Write(sBinary)
End With
End Function 'CreateMTZip(sZipPath)
-Paul Randall
begin 666 Zip.vbs
M)U-C<FEP="!T;R!D96UO('II<'!I;F<@86QL('1H92!F:6QE<R!I;B!A('-P
M96-I9FEE9"!F;VQD97(@:6YT;R!A(&YE=PT*)PDN6FEP(&9I;&4-"B=.;W1E
M.B!4:&ES(&1E;6\@9&]E<R!.3U0@:&%V92!A(&1I<F5C="!M971H;V0@;V8@
M;6]N:71O<FEN9R!P<F]G<F5S<RX-"B=4:&4@4VAE;&P@1F]L9&5R)W,@0V]P
M>4AE<F4@;65T:&]D('-T87)T<R!A;B!E>'1E<FYA;"!P<F]C97-S('1O#0HG
M"61O('1H92!A8W1U86P@8V]P>6EN9SL@9&5P96YD:6YG(&]N(&]P=&EO;G,@
M<V5T+"!I="!M87D@<')O=FED90T*)PEP;W!U<"!W:6YD;W=S('1O('-H;W<@
M<')O9W)E<W,L(&%S:R!W:&%T('1O(&1O(&%B;W5T#0HG"6-O;&QI<VEO;G,L
M(&5T8RX@(%1H:7,@97AT97)N86P@<')O8V5S<R!D;V5S(&YO="!S:&]W('5P
M(&EN(%1A<VL-"B<)36%N86=E<BX-"B<)3F]T92!T:&%T(&%N>2!P<F]G<F5S
M<R!O<B!O=&AE<B!P;W!U<"!W:6YD;W=S('1A:V4@9F]C=7,@87=A>0T*)PD)
M9G)O;2!W:&%T979E<B!T:&4@=7-E<B!M87D@8F4@9&]I;F<L(&]R(&9R;VT@
M;W1H97(@=VEN9&]W<PT*)PD)=&\@=VAI8V@@<V-R:7!T<R!M87D@8F4@<V5N
M9&EN9R!K97ES=')O:V5S('1H<F]U9V@@=&AE('5S90T*)PD);V8@=&AI;F=S
M(&QI:V4@4V5N9$ME>7,@;W(@075T;TET+@T*)U1H:7,@<V-R:7!T(&]V97)W
M<FET97,@=&AE('-P96-I9FEE9" N6FEP(&9I;&4L(&-R96%T:6YG(&$@;F5W
M(&]N92P-"B<)=&AU<R!E;G-U<FEN9R!T:&%T(&-O;7!L971I;VX@8V%N(&)E
M(&%S<W5M960@=VAE;B!T:&4@;G5M8F5R(&]F#0HG"6ET96US(&EN('1H92 N
M6FEP(&9I;&4@;6%T8VAE<R!T:&4@;G5M8F5R(&]F(&ET96US(&EN('1H92!S
M;W5R8V4-"B<)9F]L9&5R+B -"D]P=&EO;B!%>'!L:6-I= T*1&EM(%1I;653
M=&%R= T*37-G0F]X(")3=&%R=&EN9R(-"D1I;2!S1F]L9&5R4&%T:#H@<T9O
M;&1E<E!A=&@@/2 B2#I<6FEP5&5S="(-"D1I;2!S1G5L;%II<%!A=&@-"G-&
M=6QL6FEP4&%T:" ](")#.EQ$;V-U;65N=',@86YD(%-E='1I;F=S7%!A=6Q<
M37D@1&]C=6UE;G1S7'9B4V-R:7!T7%II<%1E<W1<9'5M;7DR+GII<"(-"D1I
M;2!O8FI&4T\-"E-E="!O8FI&4T\@/2!#<F5A=&5/8FIE8W0H(E-C<FEP=&EN
M9RY&:6QE4WES=&5M3V)J96-T(BD-"DEF($YO="!O8FI&4T\N1FEL945X:7-T
M<RAS1G5L;%II<%!A=&@I(%1H96X-"@E7:71H($-R96%T94]B:F5C="@B4V-R
M:7!T:6YG+D9I;&53>7-T96U/8FIE8W0B*0T*"0DN0W)E871E5&5X=$9I;&4H
M<T9U;&Q::7!0871H+"!4<G5E+"!&86QS92DN5W)I=&4H(B(I#0H)16YD(%=I
M=&@-"D5N9"!)9B -"D1I;2!O4VAE;&Q!<' -"E-E="!O4VAE;&Q!<' @/2!#
M<F5A=&5/8FIE8W0H(E-H96QL+D%P<&QI8V%T:6]N(BD-"DUS9T)O>" B4')I
M;W(@=&\@8W)E871I;F<O;W9E<G=R:71I;F<@=&AE(&-U<G)E;G0@6FEP(&9I
M;&4Z(B F('9B0W),9B F(%\-"@DB<T9U;&Q::7!0871H($-O=6YT(#T@(B F
M(&]3:&5L;$%P<"Y.86UE4W!A8V4@7PT*"2AS1G5L;%II<%!A=&@I+DET96US
M+D-O=6YT("8@=F)#<DQF("8@7PT*"2)S1F]L9&5R4&%T:"!#;W5N=" ]("(@
M)B!O4VAE;&Q!<' N3F%M95-P86-E(%\-"@DH<T9O;&1E<E!A=&@I+DET96US
M+D-O=6YT#0I4:6UE4W1A<G0@/2!.;W<-"@T*)R!#<F5A=&4@86X@96UP='D@
M6DE0(&9I;&4-"D-R96%T94U46FEP('-&=6QL6FEP4&%T: T*#0HG($-O<'D@
M86QL(&9I;&5S(&9R;VT@<T9O;&1E<E!A=&@@:6YT;R!T:&4@6DE0(&9I;&4-
M"F]3:&5L;$%P<"Y.86UE4W!A8V4H<T9U;&Q::7!0871H*2Y#;W!Y2&5R92!?
M#0H);U-H96QL07!P+DYA;653<&%C92AS1F]L9&5R4&%T:"DN271E;7,-"B<@
M2V5E<"!S8W)I<'0@=V%I=&EN9R!U;G1I;"!C;VUP<F5S<VEO;B!I<R!D;VYE
M#0HG5U-C<FEP="Y3;&5E<" Q,# P#0I/;B!%<G)O<B!297-U;64@3F5X= T*
M1&\@56YT:6P@;U-H96QL07!P+DYA;653<&%C92AS1G5L;%II<%!A=&@I+DET
M96US+D-O=6YT(%\-"@D](&]3:&5L;$%P<"Y.86UE4W!A8V4H<T9O;&1E<E!A
M=&@I+DET96US+D-O=6YT#0H)5U-C<FEP="Y3;&5E<" R,# -"DQO;W -"D]N
M($5R<F]R($=O=&\@, T*37-G0F]X(")%;&%P<V5D('1I;64Z("(@)B!$871E
M1&EF9B@B<R(L(%1I;653=&%R="P@3F]W*2 F(%\-"@DB(%-E8V]N9',B("8@
M=F)#<DQF("8@7PT*"2)!9G1E<B!C<F5A=&EN9R]O=F5R=W)I=&EN9R!T:&4@
M8W5R<F5N="!::7 @9FEL93HB("8@=F)#<DQF("8@7PT*"2)S1G5L;%II<%!A
M=&@@0V]U;G0@/2 B("8@;U-H96QL07!P+DYA;653<&%C92!?#0H)*'-&=6QL
M6FEP4&%T:"DN271E;7,N0V]U;G0@)B!V8D-R3&8@)B!?#0H)(G-&;VQD97)0
M871H($-O=6YT(#T@(B F(&]3:&5L;$%P<"Y.86UE4W!A8V4@7PT*"2AS1F]L
M9&5R4&%T:"DN271E;7,N0V]U;G0-"@T*#0I&=6YC=&EO;B!#<F5A=&5-5%II
M<"AS6FEP4&%T:"D-"B=#<F5A=&5S($]2(&]V97)W<FET97,@=&AE(&9I;&4@
M<UII<%!A=&@L('=I=&@@82!B:6YA<GD@<W1R:6YG#0HG"71H870@<F5P<F5S
M96YT<R!T:&4@8V]N=&5N=',@;V8@86X@96UP='D@+EII<"!F:6QE+V9O;&1E
M<BX-"B=)9B!T:&4@9FEL92!N86UE)W,@97AT96YS:6]N(&ES("YZ:7 L('1H
M96X@5UA04U R("AA;F0@<&5R:&%P<PT*)PEO=&AE<B!7:6YD;W=S('9E<G-I
M;VYS*2!W:6QL('1R96%T('1H:7,@9FEL92!A<R!A;B!E;7!T>0T*)PEC;VUP
M<F5S<V5D(&9O;&1E<BX-"D1I;2!S0FEN87)Y"0D)"2=3=')I;F<@97%U:79A
M;&5N="!O9B!E;7!T>2 N6FEP(&9I;&4O9F]L9&5R+@T*<T)I;F%R>2 ](")0
M2R(@)B!#:'(H-2D@)B!#:'(H-BD@)B!3=')I;F<H,3@L(# I#0I7:71H($-R
M96%T94]B:F5C="@B4V-R:7!T:6YG+D9I;&53>7-T96U/8FIE8W0B*0T*"2Y#
M<F5A=&5497AT1FEL92AS6FEP4&%T:"P@5')U92P@1F%L<V4I+E=R:71E*'-"
M:6YA<GDI#0I%;F0@5VET: T*16YD($9U;F-T:6]N"2=#<F5A=&5-5%II<"AS
(6FEP4&%T:"D`
`
end