title: Extract files from ZIP file with VBScript
body: <p>When extracting files from a ZIP file I was using the following.</p>
  
  <pre><code>Sub Unzip(strFile)
  ' This routine unzips a file. NOTE: The files are extracted to a folder '
  ' in the same location using the name of the file minus the extension.  '
  ' EX. C:\Test.zip will be extracted to C:\Test '
  'strFile (String) = Full path and filename of the file to be unzipped. '
  Dim arrFile
      arrFile = Split(strFile, ".")
      Set fso = CreateObject("Scripting.FileSystemObject")
      fso.CreateFolder(arrFile(0) &amp; "\ ")
      pathToZipFile= arrFile(0) &amp; ".zip"
      extractTo= arrFile(0) &amp; "\ "
      set objShell = CreateObject("Shell.Application")
      set filesInzip=objShell.NameSpace(pathToZipFile).items
      objShell.NameSpace(extractTo).CopyHere(filesInzip)
      fso.DeleteFile pathToZipFile, True
      Set fso = Nothing
      Set objShell = Nothing
  End Sub 'Unzip
  </code></pre>
  
  <p>This was working, but now I get a "The File Exists" Error.  </p>
  
  <p>What is the reason for this? Are there any alternatives?</p>