title: VBA code to find and open a folder based on its name
body: <p>Essentially what I am trying to do is use vba to find and open a folder based on its name. I have looked everywhere and cannot find the solution. This is what </p>
  
  <p>I have so far but nothing happens. I would like for the user to click a cmd button and it opens directly to a movie folder. </p>
  
  <p>C:\Storage\Video\Video Folders\Genre\"Folder"\"movie title, Year"</p>
  
  <p>the folder path after Video Folders can change depending on the "movie title, year" </p>
  
  <pre><code>Dim fso, Folder, subFlds, fld, s, showFolder as Object
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set Folder = fso.GetFolder(Path)
  Set subFlds = Folder.SubFolders
  
  s = "C:\Storage\Video\Video Folders"
  For Each fld In subFlds
      s = s &amp; Me.FolderName
      s = s &amp; "&lt;br /&gt;"
  Next
  showFolder = s
  Application.FollowHyperlink showFolder
  </code></pre>