title: How to traverse subfolders in a zip file and unzip files with specific extension?
body: <p>Basically I'm trying to unzip some specific files in a zip file (there are lots of junk subfolders in it).</p>
  
  <p>The thing is only the last subfolder contains files I want. Other subfolders won't contain any files except another subfolder.</p>
  
  <p><img src="https://i.stack.imgur.com/0Lmam.png" alt="enter image description here"></p>
  
  <p>Here is the code I'm currently using:</p>
  
  <pre><code>ZipFile="C:\Test.zip" 
  ExtractTo="C:\" 
  Set fso = CreateObject("Scripting.FileSystemObject") 
  If NOT fso.FolderExists(ExtractTo) Then  
      fso.CreateFolder(ExtractTo) 
  End If 
  set objShell = CreateObject("Shell.Application") 
  set FilesInZip= objShell.NameSpace(ZipFile).items
  print "There are " &amp; FilesInZip.Count &amp; " files" 
  'Output will be 1 because there is only one subfolder there.
  objShell.NameSpace(ExtractTo).CopyHere(FilesInZip) 
  Set fso = Nothing 
  Set objShell = Nothing
  </code></pre>
  
  <p>Is there anyway I can traverse subfolder and only unzip files with a specific extension?</p>