title: copyhere doesn't respect overwrite parameter in VBA
body: <p>I'm writing a VBA code to add files, which are into several folders, into a ZIP file. 
  This procedure should run automatically, by a scheduled job, and I try to add a parameter to force "yes to all". 
  In <a href="https://technet.microsoft.com/en-us/library/ee176633.aspx" rel="nofollow noreferrer">Microsoft support</a> there are some constants but if I add to my code, I don't have the aspected result.
  the code is the following </p>
  
  <pre><code>Public Sub ZipFolder(ZipFileName As Variant, _
                      FolderPath As Variant, _
                      Optional ByVal FileFilter As String, _
                      Optional ByVal Overwrite As Boolean = False)
  
  Dim fso As Object, tf As Object
  Dim strZIPHeader As String, sFile As String
  
  On Error GoTo done
  ' create zip file header
  strZIPHeader = Chr(80) &amp; Chr(75) &amp; Chr(5) &amp; Chr(6) &amp; String(18, Chr(0))
  
      With CreateObject("Shell.Application")
          sFile = Dir(FolderPath, vbNormal)
          Do Until sFile = vbNullString
              .Namespace(ZipFileName).CopyHere FolderPath &amp; sFile, **"&amp;H10&amp;"**
              sFile = Dir
          Loop
      End With
  
  
  Set fso = Nothing
  Set tf = Nothing
  done:
      If Err.Number &lt;&gt; 0 Then MsgBox Err.Description, vbApplicationModal + vbInformation
  End Sub
  </code></pre>
  
  <p>The parameter &amp;H10&amp; doesn't work. I have tried with "&amp;0X14&amp;" as well but same result.
  Any idea?
  Thank you</p>