title: unzip file silently vbscript
body: <p>I found online script that basically unzip every .zip archive in a given path.</p>
  
  <pre><code>sub UnzipAll(path)
  
  set folder = fso.GetFolder(path)
  
  for each file in folder.files
  
      if (fso.GetExtensionName(file.path)) = "zip" then
  
          set objShell = CreateObject("Shell.Application")
  
          objshell.NameSpace(path).CopyHere objshell.NameSpace(file.path).Items
  
          file.delete
  
      end if
  
  next
  
  end sub
  </code></pre>
  
  <p>This is actually working, but the problem is that I want to unzip <strong>"silently"</strong> (silently means that I don't want any kind of message from the system when unzipping, like "do you want to overwrite?" ect.).</p>
  
  <p>I've searched a lot on google and I found that you just need to add a few flags on the "CopyHere" method, like this:</p>
  
  <pre><code>objshell.NameSpace(path).CopyHere objshell.NameSpace(file.path).Items, *FLAGHERE*
  </code></pre>
  
  <p>But the problem is right here. The flags would normally work, but they are completely ignored when unzipping a .zip archive.</p>
  
  <p>So I searched for a workaround, but I didn't find anything helpful.</p>