Files are not copied into zip file using VBS code
<p>I'm trying to create a zip file and copy files into it via VBS code. When I run the below VBS code, it is running successfully. Outcome.zip is getting created, but no files are copied</p>

<pre><code>Here is my code :

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("C:\apace-jmeter-3\bin\Results\outcome.zip", 2, True)
ts.Write "PK" &amp; Chr(5) &amp; Chr(6) &amp; String( 18, Chr(0) )
Set fso = nothing
Set ts = nothing

WScript.Sleep 5000


Set objShell = CreateObject("Shell.Application")
Set DestFldr=objShell.NameSpace("C:\apace-jmeter-3\bin\Results\outcome.zip")
Set SrcFldr=objShell.NameSpace("C:\Users\chitra.balasubramani\Desktop\Mail")
DestFldr.CopyHere SrcFldr
</code></pre>